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S IN THE MIDDLE OF A CHARACTER... 



? WAS THIS THE LAST BIT? 
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20D8 
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20DD 
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MOV 
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20DE 
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FI 
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FB 
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20E1 

C9 
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TO 

INCREMENT 1 BYTE POINTER TO CIRC 

20E2 

3C 

BUMPTR:: 


INR A 5 BUMP IT 

20E3 

FE52 

CPI 


TBFEND&OFFH 

20E5 

CO 

RNZ 


5 QUIT IF MOT AT END 

20E6 

~«E 

MV I 


A,TAPBUF&OFFH 

20E8 

C9 

RET 





? COMMAND TO 

RESTORE TINY BASIC INTERRUPT ROUTIN 



E 



20 E 9 

CD 20ED 

TRETURs s CALL 

TBIEST 

20EC 

F7 

BBRETs RST 


RSTFIN ? GO HOME 

20ED 

DB12 

TBIEST: s 

E INTERFACE 


IN TAPE10 5 INITIALIZE TAP 

20EF 

E602 

AN I 


2 

20F1 

20FA 

•JRNZ 


TBIEST 5 WAIT FOR THANG TO GO T 



. 0 ZERO 


* 

20.F3 

32 4b.C2 

ST A 


TAF'EST , 

A, 3 

2 OF 6 

3E03 

MV I 


co 

IL 

w 

32 4EA6 

STA 


DEVTEM 



5 ACTIVATE TINY 

BASIC INTERRUPT ROUTINE 

20FB 

F3 

DI 



20FC 

ED5E 

I M2 



20FE 

3E20 

MV I 


A,ITAB>8 

2100 

ED47 

STA I 



S’, \ 0 

3 EOS 

MV I 


A? 8 

2104 

D30E 

OUT 


INMOD 

2106 

3EC8 

MV I 


A , 200 

2108 

D30F 

OUT 


INLIN 

210 A 

3E22 

MV I 


A, ITAB2<0FFH 

2 IOC 

D30D 

OUT 


INFBK 

210E 

FB 

El 



21 OF 

C9 
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ICE 

TO 

ESTABLISH TAPE UNIT AS INPUT DEV 

2110 

F3 

TINPESs: DI 



2111 

21 2222 

LX I 

} 

SHLD 


H, ( (TAPBUF&OF'FH) <8 ) + (TAPBUF&OFFH 

2114 

22 4E20 


CONPRO 

2117 

D9 

EXX 



2118 

AF 

XRA 


A 

2119 

32 4EA6 

STA 


DEVTEM 

2 llC 

30 

I NR 


A 

21 ID 

32 4EC2 

STA 


TAF’EST 

2120 

06FC 

MV I 


bVstpbqt 

2122 

D9 

EXX 



2123 

3E18 

MV I 


A, 18H 

2125 

D30E 

, OUT 


INMOD 

2127 

i-B 

El 



2 i 28 

C9 
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.END 
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D, MSG 


ts 

? 

CALL 

PRTSTG 

31 0000“04 

STOPS s 
RSTART 5 

IS 

LX I S 

21 000 A-' 


LX I 

H, XXST1+1 

22 0000 s 05 


SHLD 

CURRNT# 

21 0000 

XXSTis 

LX I 

Hi 0 

22 0000 s 06 


SHLD 

LOPVAR# 

22 0000 s 07 


SHLD 

STKGOS# 

3E3E 

XXST25 

MV I 

A i ' * 

CD 00C7 - 


CALL 

GETLN 

D5 


PUSH 

D 

11 0000 ? 08 


LX I 

D,BUFFER# 


? IGNORE ANY 

LEADING 

1A 


LDAX 

D 

FE3E 


CPI 

> **' 

2001 


■JRIM2 

XX ST 4 

13 


I NX 

D 

CD 0000 s 09 

XXST4: 

CALL 

TSTMUM# 

E7 


RST 

RSTIGN 

7C 


MOV 

A, H 

B5 


ORA 

L 

C1 


POP 

B 

CA 0000 :OA 


JZ 

EXECO# 

22 0000 s OB 


SHLD 

^ OLDLN# 

IB . 


OCX ' 

D 

7C 


MOV 

A,H 

12 


STAX 

D 

IB 


DC X 

D 

7D 


MOV 

A,L 

12 


STAX 

D 

C5 


PUSH 

B 

D5 


PUSH 

D 

79 


MOV 

A, C 

93 


SUB 

E 

F5 


PUSH 

PSN 

CD 0077-' 


L» ALL 

FNDLM 

D5 


PUSH 

D 

2010 


JRNZ 

XXST3 

D5 


PUSH 

D 

CD 0094 


CALL 

FNDNXT 

Cl 


_pop 

B_ 

2A 00005OC 


lhcdt 

txtunf¥~\ 

CD 0 177- 

/ 

CALL 

MVUP 

60 

/ 

MOV 

H,B 


Pi STACK# 


0000sOC 


3HLD 


TXTUNF# 
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004F ■’* 

Cl 

XX STS* 

POP 

B -- 


0050 •" 

2 A 0000*OC 


LHLD 

TXTUNF# 

0053 x 

FI 


POP 

PSW 


AflSii •'* 



p*| |CU 

FI ..— 


0055 •** 

FE03 


r uon 

CPI 



0057' 

28A7 


•JRZ 

RSTAR 


0059 

R 5 


ADD 

L 


005A *■' 

5F 


MOV 

E, A 


005B •" 

3E00 


MVI 

A? 0 


005D 

80 


ADC 

H 


005E *•' 

57 


MOV 

D. A 


005F *** 

21 A70C 


LX I 

H 5 DFT 

LMT 

0062 ' 

EB 


XCHG 



0063 ' 

CD 0000*OD 


CALL 

comps 


0066 ' 

D2 0000 * OE 


JNC 

QSORR 

Y# 

0069 

22 0000 « OC 


SHLD 

TXTUlj 

F# 

006C •" 

D 1 





006D •" 

CD 0189"' 


CALL 

MVDOwN ) 

0070 

Di 



ru_ ^ 

y 

0071 ' 

El 


POP 

H 


0072 •" 

CD 0177"' 


CALL 

MVUP 


0075 ' 

189B 

; FNDLN 

JMPR 

XXST2 


0077 ■- 

Jfl 

FNDLN s * 

MOV 

ft i H 


0078"' 

B7 


OR ft 

A 


0079' 

FA 0000 sOF 


JM 

SHOW# 


007C ' 

11 0000s10 


LX I 

D,TEXT# 

007F 

13 

FNDLPs * 

I MX' 

D 


0080 •" 

CD 019 A "' 


CALL 

LDE 


0083 •" 

4F 


MOV 

CM A 


0084 

IB 


OCX 

D 


0085"' 

87 


ADD 

A 


0086 

D8 


RC 



0087 •" 

CD 01 9 A"' 


CALL 

LDE 


008A •" 

95 


SUB 

L 


008B 

47 


MOV 

B f 'ft 


008C 

13 


INK 

D 


008D 

79 


MOV 

A v C 


008E’" 

9C 


SBB 

H 


008F ■" 

3804 


JRC 

FLi 


0091 •" 

IB 


DCX 

D 


0092 •" 

BO 


ORA 

B 


0093 

C9 

FI 2* 

RET 



0094"' 

13 

FNDNXT* 

I NX 

D 


0095 

13 

FL 1 § 

INK 

D 


0096"' 

CD 019A"' 

FNDSKP* 

» L ALL 

LDE 


0099 •" 

FEOD 


CPI 

OR 


009B "' 

20 F8 


■JRNZ 

FL 1 


009D " 

13 


INK 

D 


009E •" 

18DF 


JMPR 

FNDLP 

00 AO"' 

3 A 0000 * 11 

GLED* 

LDA 

EDFLG# 

00 A3 "' 

A 7 


ANA 

A 


00A4"' 

2814 


JRZ 

GLEDA 


00 A6 "' 

11 0000*08 


LX I 

D,BUFFER# 

00A9 "' 

CD 0000*09 


CALL 

TSTNUM# 


SKCfPItib Lk) 


-f)fJU^F 
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LIME 




OO AC ’** 

CD 0077 *’ 

CALL 

FNDLN 

00 A F 

3E3F 

MV I 

A, 

00B1 **’ 

CO 

RNZ 


00B2 

13 

I NX 

D 

00B3 •" 

CD 0001-' 

CALL 

GL.EDB 

00B6" 

AF 

XRA 

A 

00B7" 

32 0000 s11 

STA 

EDFLG# 

OOBA-' 

ET.D5B 0000 s 

12 GLEDAs LDED 

EDPTR# 

OOBE 

CD 019A 

CALL 

LDE 

D 

00C1 •" 

13 

GLEDBs INX 

00C2 ’*’ 

ED53 0000s 

12 SDED 

EDPTR# 

0006 

C9 

RET 


00 C 7 •** 

11 0000“03 

GETLNss LX I 

D,BUFFER# 

000A •" 

32 OOOOs11 

STA 

EDFLG# 

GOOD 

DF 

GL.ls RST 

RSTOCH ? PROMPT OR ECHO 

OOCE 

C5 

GL2s PUSH 

B 

OOCF •" 

ES 

PUSH 

H 

OODO 

D5 

PUSH 

D 



? PLACE UP CUR 

SOR BLOCK 

OOD1 •" 

OEAA 

MV I 

CUOAAH 

00D3" 

CD OOOOs13 

CALL 

CURSE# 



; RETURN CHAR 

FROM NEXT LINE # 

OOD 6 **’ 

21 OOOOs14 

GL2AS- LX I 

HiNLLNCT# 

0009 

7E 

MOV 

A,M ? SENSE FLAG 

OODA" 

A7 

ANA 

A 

OODB 

2838 

JRZ 

GL2C 

OODD 

35 

DCR 

M 



? FIRST TIME THRU? 

CODE-' 

FE05 

CPI 

i;;r- 

' 

OOEO - " 

20 OC 

JRNZ 

GL2B 5 .JUMP IF NOT 



? GET PREVIOUS 

LINE # AND BUMP IT' 

00E2-' 

2A 0000 s OB 

LHLD 

OLDLN# 

00E5 

11 OOOA 

LX I 

D, 10 

COES 

19 

DAD 

D 

00E9 

CBBC 

RES 

7iH ? ALLOW NEG 

OOEB •" 

22 0000 s15 

GL2JS SHLD 

i i # 

NLLNLN ? MOVE TO WORKING RAM C 



LL/lt 

5 COMPUTE D1V1 

SION SUBTRACTOR 

OOEE •- 

FF 

GL2BS INDEXW 

1F.: I NTF’% [LIFE . INTP. , i. RST 7 3 3 

OOEF 

SB 

+„BYTE 90+13 


OOFO ■" 

01C8 •" 

. WORD 

TBLDIV-2 

00F2 

2A OOOOs .1.5 

LHLD 

NLLNLN# 

OOFS •" 

0600 

MV I 

B 7 0 

00F7 •" 

A7 

GL2E s ANA 

A 

OOF 3 ** 

ED52 

DSBC 

D 

OOF A " 

FA 0100" 

,JM 

?3L2F 

OOFD ■- 

04 

I NR 

B 

OOFE" 

18F7 

JMPR 

GL2E 

0100" 

19 

GL2FS DAD 

D 

0:1.01 •- 

22 OOOOS15 

SHLD 

NLLNLN# 

0104 " 

21 OOOOs16 

LX I 

HiNLLNZS# 

0107"' 

78 

MOV 

A? B 

0 .1 08 •" 

A 7 

ANA 

A ' . 

01 09 

2005 

■JRNZ 

GL2G 

01 OB'" 

. 7E 

MOV 

A i M 
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LINE 


o i oc 

A7 


ANA 

01OD 

28C7 


JRZ 

01 OF-' 

AF 


XRA 

0110-' 

C630 

GL2GS 

ADI 

0112-' 

77 


MOV 

0113 

1 SOB 


JMPR 



? NOTHIN FANC 

011 5-" 

CD 0000s17 

GL2C s 

CALL 

Oil 8" 

D1 


POP 

0119-' 

12 


STAX 



R 


Oil A"' 

D5 


RUSH 

01 IB" 

FE66 


CPI 

01 ID"' 

CC 00AO" 


cz 

0 1 20 •" 

D1 

GL2D s 

POP 

0121 " 

El 


POP 

0122-' 

Cl 


POP 

0123-' 

12 

GL3s 

STAX 

0 1 24 •" 

FE1F 


CPI 

0126-“ 

2033 


JRNZ 

0128"' 

7B 


MOV 

0129 •" 

E5 


PUSH 

012 A •" 

21 OOOO s 08 


LX I 

012D" 

BE) 


CMP 

Q12E" 

El 


POP 

012F •' 

289D 


JRZ 

0131 •" 

IB 


DCX 

0132" 

1A 


LDAX 

0133" 

FE68 


CPI 

0135" 

3007 


JRNC 

0137" 

CD OOOOs18 


CALL 

01 3 A •" 

3E1F 


MV I 

0 13C •" 

188F 


JMPR 

013E " 

D5 

TOKINs 

PUSH 

013F" 

CD 0000 5 19 


CALL 

0142" 

7E 

JOKER* 

MOV 

0143" 

E5 


PUSH 

0144" 

E67F 


AN I 

0146" 

CD 0000 s18 


L ALL 

0149" 

3E1F 


MVI 

014B" 

CD OOOOs1A 


CALL 

014E" 

El 


POP 

014F" 

7E 


MOV 

0150" 



INX 

0151" 

07 


RLC 

0152" 

30EE 


JRNC 

0154" 

3E1F 

TOKEQs 

MVI 

0156" 

DF 


RSI- 

0157" 

D1 


POP 

0153" 

C3 OOCE" 

GL9« 

JMP 

01 SB" 

FEOD 

GL4 “ 

CPI 

015D" 

CA 016E" 


JZ 

0160 " 

7B 


MOV 

0161" 

E5 


PUSH 

0162" 

21 OOOOsIB 


LX I 


A 

GL2A 3 YES - JUMP BACK 

A 

"0" 3 MAKE ASCII 

Mi A ? SET NONZERO FLAG 

GL2D 

CHKIO# ? GET NORMAL CHARACTER# 

D 

D 5 STUFF CHAR AS DEL I MITE! 

D 

EDKEY 

GLED 

D 

H 

B 

D 

RUBOUT 

GL4 

A,E 

H 

Hi BUFFER# 

L 

H 

GL.2 

D 

D 

68H 5 TOKEN TO RUB OUT? 

TOKIN 

PNOTE# 

A,RUBOUT 
GL1 
D 

TOKEPT# 

A i M 
H 

7FH 

PNOTE# 

A,RUBOUT 
VDM# 

H 

A,M 

H 

TOKER 
A,RUBOUT 

RSTOCH 3 ECHO ONE RUBOUT CHAR 
D 

GL2 
CR 
GL5 
A i E 
H 

HiBUFEND# 
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0165" 

BD 


CMP 

L 

0166 

El 


POP 

H 

0167-' 

28EF 


•JRZ 

GL9 

0169 ** 

1A 


LDAX 

D 

016A-' 

13 


I NX 

D 

016B 

C3 OOCD" 


•JMP 

GL.1 

016E •" 

13 

GL5 s 

INX 

D 

016F-" 

13 


INX 

D 

0170-' 

3£*pp 


MV I 

ALOFFH 

0172" 

12 


STAX 

D 

0173-" 

IB 


DCX 

D 

0174-' 

C3 0000:1C 


JMP 

CRL-F# 



; mvup 

AND MVDOWN 

0177-' 

CD 0000sOD 

MVUF'S 

CALL 

COMP# 

017A-" 

„ IJ 


RZ 


017B-' 

CD 019A" 


CALL 

LDE f 

017E •' 

E5 


PUSH 

H 

017F-' 

60 


MOV 

Hi B 

0180"' 

69 


MOV 

Li C 

0181" 

CD 01B2" 


CALL ' 

STHL 

0184" 

El 


POP 

H 

0135 ’’’ 

13 


INX 

D 

0186" 

03 


INX 

B 

0187" 

18EE 


JMPR 

mvup 

0189" 

78 

MVDOWN: 

i s MOV 

AiB 'X. 

018 A " 

92 


SUB 

is Jf 1 

01 SB" 

2003 


JRNZ 

MD1 ^ 

018D" 

79 


MOV 

A i L* 

018E" 

93 


SUB 

E 

018F" 

C8 


RZ 


0 1 90 " 

IB 

MD15 

DCX 

D 

0191" 

0192 " 
0195" 

2B 

CD .019A" 

CD 01B2" 

r 

DCX. 

CALL 


0198" 

18EF 

X 


MVDOWN 

019 A " 

08 ■ 

LDE» « 

EXAF 

019B" 

CB7A 


BIT 

7 1 D 

019D " 

2810 


JRZ 

LDE 1 

019F " 

D5 


PUSH 

D 

01 AO " 

EB 


XCHG 


01A 1 " 

29 


DAD 

H 

01A2" 

7E 


MOV 

Ai M 

01 A3 " 

07 


RLC 


01 A 4 ' 

23 


INX 

H 

01A 5 " 

AE 


XRA 

M 

01A6" 

E6AA 


ANI 

1010101OB 

01A8 " 

AE 


XRA 

M 

01A9" 

67 


MOV 

H, A 

01A A " 

08 


EXAF 


01AB" 

7C 


MOV 

A,H 

01 AC" 

EB 


XCHG 


01 AD " 

D1 


POP 

D 

01AE " 

C9 


RET 


01AF" 

08 

LDE is 

EXAF 


01 BO" 

1A 


LDAX 

D 
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LINE ~ 
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01B .1. 

C9 

RET 

? SUBROUTINE TO 

STORE A IN 

01B2- 

p PI 

STHLss PUSH 

H 

01B3 

F5 

PUSH 

PSW 

01B4 •" 

CB7C 

BIT 

7 1 H 

01 B6 

280E 

•JRZ 

STHL1 

0 i B8 

z!V 

DAD 

H 

01B9 

OF ' 

RRC 


01 BA-' 

AE 

XRA 

M 

01BB 

E655 

ANI 

01010101B 

01BD •" 

AE 

XRA 

M 

01 BE'’ 

77 

MOV 

M, A 

01BF 

23 

INX 

H 

01 CO •' 

FI 

POP 

PSW 

01C1 •" 

F5 

PUSH 

PSW 

01C2 •' 

AE 

XRA 

M 

01C3 ■' 

E655 

ANI 

01010101B 

01C5 •' 

AE 

XRA 

M 

01C6' 

77 

STHLls MOV 

M, A 

01C7 - " 

FI 

POP 

PSW 

01C8 •" 

El 

POP 

H 

01C9-" 

C9 

RET 


01C A •' 

0001 

TBLDIVs .WORD 

1 

01CC 

OOOA 

.WORD 

10 

01CE ' 

0064 

. WORD 

100 

01D0' - 

OSES 

. WORD 

1000 

01D2' 

2710 

. WORD 
. END 

10000 
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. PREL 






.IDENT 

EXEC 





„INSERT 

MACRO.LIB 





.INSERT 

BBEQU.ASM 




? TABLE 

GIVING . 

JUMP TO ADDRESS FOR COMMANDS 

0000 •** 

0000s 04 


T0KJT5 

„WORD 

LIST# 

0002 

0000s 05 



. WORD 

CLRSCR# 

0004 •" 

006F"' 



. WORD 

RUN 

0006 

00005 06 



. WORD 

NEXT# 

0008 

0000 s 07 



«WORD 

LINEDR# 

000A •*’ 

0000!08 



. WORD 

IFF# 

OOOC *“ 

0000s 09 



. WORD 

GOTO# 

OOOE ■" 

0000 5 OA 



. WORD 

G08UB# 

00 3.0 

0000:OB 



. WORD 

RETURN# 

0012" 

0000soc 



. WORD 

BOXDRW# 

0014"' 

0000:OD 



. WORD 

FOR# 

0016" 

OOOOs OE 



* WORD 

INPUT# 

0018 •" 

00005 OF 



. WORD 

PRINT# 




? DIRECT AND EXEC 

001 A" 

E7 


EX ECO: 5 

RST 

RSTIGN ? GET FIRST NONBLANK 

00 IB"' 

D5 



PUSH 

D 

001C"' 

FE68 



CPI 

68H 5 IS SHE A TOKEN? 

00 I E 

3813 



JRC 

EXECOA ? NO 

0020"' 

FE75 



CPI 

75H 

0022 *** 

300F 



JRNC 

EX ECO A 5 NO 




I WE FOUND A TOKEN - LOOKUP IN TABLE AND JUMP TO 




IT 



0024" 

07 



RLC 


0025"' 

5F 



MOV 

Ef ft 

0026"' 

1600 



MV I 

Bj 0 

0028"' 

21 FF30"' 



LXI 

H,T0KJT-208 

002B"' 

19 



DAD 

D 

002C"' 

5E 



MOV 

E? M 

002D"' 

23 



INX 

H 

002E-' 

56 



MOV . 

D* M 

002F"' 

EB 



XCHG 


0030"' 

D1 



POP 

D 

0031 •" 

13 



INX 

D 

0032"' 

E9 



PCHL 





? NOT A 

TOKEN ~ 

A VARIABLE PERHAPS? 

0033"' 

CD OOOOs 

10 

EXECOAs 

CALL 

TSTV# 

0036"' 

3808 


» 

JRC 

EXECOB " NO - SEARCH 1 

0038"' 

CF 


■ RST 

TSTC 

1 

i EXECOB ? MAYBEC 

0039"' 

3D 


4 * 

„ BYTE 


003A "' 

05 


4- 

.BYTE 

EXECOB -.-1 

003B"' 
003C "■ 
003F"' 

Cl 

CD 00005 
F7 

11 

+ 2 

POP 

CALL 

RST 

5 ASSIGNMENT 1 

- . 

RSTFIN v > 

0040"' 

D1 


EXECOB: 

POP 

D 

0041" 

21 00A7"' 



LXI 

H i T AB2 

0044"' 

E7 


EX EC 5 5 

RST 

RSTIGN :> 

0045"' 

D5 


EXOs 

PUSH 

D 
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0046 

CD 0000s12 

EX 1! 

CALL 

LDE# 

0049 

CB7E 


BIT 

7 7 M 

004B 

2016 


•JRNZ 

ATEND 

004D" 

BE 


CMP 

M 

004E 

2004 


JRNZ 

MISMAT 

0050" 

oo 


I NX 

H 

0051 x 

13 


INX 

D 

0052*** 

18F2 


JMPR 

EX 1 

0054“* 

23 

MISMAT: 

INX 

H 

0055“’ 

CB7E 


BIT 

71 M 

0057" 

•*“»»"»p 


JRZ 

MISMAT 

0059"' 

' 23 

SKPBAD: 

INX 

H 

005A “ 

23 


INX 

H 

005B 

oo 


INX 

H 

005C"' 

7E 


MOV 

A,M 

0050“’ 

3C 


I NR 

A 

005E-" 

2808 


JRZ 

EOL 

0060 

D1 


POP 

D 

0061 “* 

18E2 


JMPR 

EXO 

0063'" 

F 680 

ATEND5 

OR I 

80H 

0065 

BE 


CMP 

M 

0066" 

20F1 


JRNZ 

SKPBAD 

0068 

23 

EOL 5 

INX 

H 

0069 •" 

7E 


MOV 

A,M 

006A “* 



INX 

H 

006B" 

66 


MOV 

H) M 

006C 

6F 


MOV 

L, A 

006D •" 

FI 


POP 

PSW 

006E "' 
006F •" 

E9 

11 0000!13 

RUN: 

PCHL 
LX I 

Th TEXT# 

0072"' 

21 0000 

RUNNXL5 

: LX I 

H? 0 

0075"' 

CD 0000s14 


CALL 

FNDLP# 

0078"' 

DA 0000s15 


JC 

RST ART # 

007B "' 

ED53 0000:16 

RUNTSL: 

: SDED 

CURRNT# 

007F "' 

CD 0000517 


CALL 

WHATSU# 

0082"' 

2008 


JRNZ 

„ . OK 

0084 "' 

D5 


PUSH 

D 

0085" 

CD 0000s18 


CALL 

PRTLN# 

0088"' 

CD 0000:19 


CALL 

prist, 3# 

008B"' 

D1 


POP 

D 

008C"' 
008C'" 

18 

. . OK 5 

INX 

D 

008D "' 

13 


INX 

D 

008E"' 

CD 0000!17 

RUNSML: 

: CALL 

WHATSU# 

0091 •" 

C3 001 A"' 

Y 

JMP 

EX ECO 

0094" 

CD 009A" 

5 END A 
FINISH: 

LINE ROUTINE 
: CALL FIN 

0097" 

C3 000051A 


JMP 

QWHAT# 

009A"' 

CF 

FIN! 5 

TSTCC 

■3BH.FI IX 

009B"' 

3B 

4 * 

BYTE 

3BH 

009C"' 

03 

4 * 

„ BYTE 

FI1-.-1 

009D" 

FI 

+ 3 

POP 

PSW 

009E"' 

18EE 


JMPR 

RUNSML 


CHECK FOR HALT 
AND FOR TRACE KEY 
TRACE IS WANTED 


CHECK FOR INTERRUPT KE 


RST 1 
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EXEC 







00AO '* 

CF 

FI is 

TSTCC 

CRSFI2I: RST 

1 


00 A1 

OD 

4* 

. BYTE 

OR 



00 A2 

03 

•4 

. BYTE 

FI2-.-1 





+ ii 





00 A3 

FI 


POP 

PSW 



00A4 *“ 

18CC 


•JMPR 

RUNNXL 



00 A6 •" 

C9 

FI2: 

RET 




00A7"' 

54D6 

TAB2 

s ITEM 

•"TV- - , PUTCD#t 

.ASCIS 

•"TV"' 

00 A9 •" 

0000?IB 

4- 

. WORD 

PUTCD# 





+i 





OOAB"' 

4DD5 


ITEM 

•" MU i PUTMU# C 

.ASCIS 

•"MU" 

OOAD •" 

0000 s 1C 

4* 

88 WORD 

PUTMU# 





+ 3 





OOAF * 

A<6» 


ITEM 

PUTIOttC 

»ASC1S 

•** & •** 

OOBO 

0000s ID 

4* 

. WORD 

PUT10# 





+ 3 





00B2 •" 

43414CCC 


ITEM 

•"CALL-", DOCALL 

#i: 

. ASCIS 




CALL-' 




00 B6 *•* 

0000s IE 

4- 

. WORD 

DOCALL # 





+ 3 





00 B8 *’* 

AE 


ITEM 

, REM#!“ 

.ASCIS 


00B9-‘ 

0000s IF 

+ 

JL. I 

. WORD 

REM# 



OOBB-' 

A4 


ITEM 

BCDMAT# t 

« ASC1S 

$ •" 

OOBC •“ 

0000:20 


. WORD 

BCDMAT # 





4“] 





OOBE"' 

3A 


. BYTE 

«•* If 



OOBF"' 

E8 


TOKEN 

68H t TL IST# C 

. BYTE 

H430H 

ooco •" 

0000:21 

+ . 

„ WORD 

TLIST# 





4*3 





OOC2 •" 

3 A 


.BYTE 

» y 



00C3"' 

F4 


TOKEN 

74H j TOUTPU# C 

. BYTE 

74H+30H 

00C4 •" 

0000:22 

4* 

, 4 -. “I 

. WORD 

TOUTPU# 



00C6 

3A 

^ J 

. BYTE 

o c * SS ® 0<s 



00C7 •" 

F3 


TOKEN 

73H* T INPUT#!: 

. BYTE 

7 3 H 4* cj H 

00C8 •" 

0000:23 

4* 

»WORD 

T INPUT# 





+ 3 





OOCA"' 

3 A 


. BYTE 

*** 81 c®* 

88 



OOCB"' 

FO 


TOKEN 

70H» TRETURtr. 

. BYTE 

7 OH 4*80 H 

OOCC 

0000 : 24 

4* 

. WORD 

TRETUR# 





4-3 





OOCE ■" 

3A 


.BYTE 

m 



OOCF" 

EA 


TOKEN 

6AH,TLOADttC 

. BYTE 

6AH+SQH 

00D0-" 

0000 s 25 

4* 

. WORD 

TLOAD# 





*4] 





00D2 •*' 

2 A 


. BYTE 




00D3-' 

F4 


TOKEN 

74H*TPRINT#E 

.BYTE 

74H+S0H 

00D4-" 

0000s26 

4v . 

. WORD 

TPRINT# 





4 3 





00D6 

53544FD0 


ITEM 

- STOP-', STOP#i: 

.ASCIS 

x STOP 

OOD A 

0000 s 27 

4" 

. WORD 

STOP# 





4*] 





OOBC 

FF 


TOKEN 

07FH,DEFLT#C 

. BYTE 

07FH4-80H 
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DODD"' 

oooo « 

28 + 

.WORD DEFLT# 




+ ;i 

. END 
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EX PR 






.PREL 






. IDENT 

EXPR 





. INSERT 

BBEQLL ASM 





EXPR ** 


oooo 

CD 

0048 

EXPRs 

: CALL 

EXPR1 

0003- 

E5 



PUSH 

H 

0004 

J. 

013F"' 


LX I 

H,TAB6 _ 

0007 

C3 

0000s04 


JMP 

EXEC# 

OOOA 

CD 

0033 •“ 

XPRls 

CALL 

XPR8 

GOOD 

D8 



RC 


OOOE 

6F 



MOV 

L i A 

OOOF 

C9 



RET 


001 o •- 

CD 

0033 **’ 

XPR2S 

CALL 

XPR8 

0013 •" 

C8 



RZ 


0014-' 

6F 



MOV 

L, A 

0015 •- 

C9 



RET 


001 6 -* 

CD 

0033 **' 

XPR3: 

CALL 

XPR8 

0019-' 

C8 



RZ 


001 A" 

D8 



RC 


00 IB"' 

6F 



MOV 

L 7 A 

001 c •- 

C9 



RET 


00 ID-' 

CD 

0033" 

XPR4: 

CALL 

XPR8 

0020 -' 

6F 



MOV 

L 7 A 

0021-' 

C8 



p 7 
r\, jl 


0022 *” 

D8 



RC 


0023“’ 

6C 



MOV 

L, H 

0024“" 

Q9 



RET 


0025" 

CD 

0033“’ 

XPR5s 

CALL 

XPR8 

0028" 

CO 



RNZ 


0029 "' 

6F 



MOV 

L 5 A 

002A "' 

C9 



RET 


002B 

CD 

0033 

XPR6S 

CALL 

XPR8 

002E -' 

DO 



RNC 


002F -' 

6F 



MOV 

L i A 

0030 "' 

C9 



RET 


0031"' 

El 


XPR7: 

POP 

H 

0032"' 

C9 



RET 


0033 •" 

79 


XPR85 

MOV 

A ^ l.. 

0034 

El 



POP 

H 

0035 

Cl 



POP 

B 

0036 •' 

E5 



PUSH 

H 

0037"' 

C5 



PUSH 

B 

0038" 

4F 



MOV 

C, A 

0039 -' 

CD 

0048 *** 


CALL 

EXPR1 

0030 

EB 



XCHG 


003D 

E3 



XTHL 


003E 

CD 

0000 « 05 


CALL 

CKHLDE# 

0041 " 

Di 



POP 

D 

0042 -' 

•Sc** i 

OOOO 


LX I 

H 7 0 

0045"' 

3E01 


MVI 

A, 1 

0047 •" 

C9 



RET 


0048 

CF 


EXPR1 

s TSTC 

7 xpi 11: 

0049 "' 

2D 


4 * 

„ BYTE 


004A 

05 


4 * 

. BYTE 

XPl 1— „ —1 




•+*.3 





RST 1 


sy 4 
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EX PR 


004B 

21 0000 


LX I 

H i 0 

004E 

1821 


.JMF'R 

XP16 

0050 •" 

CF 

XP11 s 

TSTC 

'+•' , X P121: 

0051 *“ 

2B 

4* 

. BYTE 

■* 4 

0052 

00 

4- 

. BYTE 

XP12-.-1 



+ 3 



0053 *“ 

CD 007A' 

XP12: 

L* AL.E 

EXPR2 

0056 *“ 

CF 

XP13: 

TSTC 

'+',XP15C 

0057 

2B 

4 

„ BYTE 

*** 4 

0058 •" 

15 

4 

. BYTE 

XP15-.~1 



4] 



0059 

F5 


PUSH 

H 

005A 

CD 007A' 


CALL 

EXPR2 

005D •" 

EB 

XF'14: 

XCHG 


005E *“ 

E3 


XTHL 


005F *“ 

7C 


MOV 

At H 

0060 *“ 

A A 


XRA 

D 

0061 

7A 


MOV 

A, D 

0062 

19 


DAD 

D 

0063*“ 

D1 


POP 

D 

0064 

FA 0056*“ 


JM 

X P13 

0067 •” 

AL* 


XRA 

H 

0068 ' 

F2 0056*“ 


JP 

XP13 

006B 

C3 0000:06 


JMP 

QHOW# 

006E 

CF 

XP15: 

TSTC 

,XPR9C 

006F *“ 

2D 

4 

, BYTE 


0070'“ 

AO 

4 

„ BYTE 

XPR9-..-I 



+ 3 



0071 -• 

E5 

XP16: 

PUSH 

H 

0072' 

CD 007A' 


CALL 

EXPR2 

0075 

CD 0000:07 


CALL 

CHGSGN# 

0078' 

18E3 


JMPR 

XP14 

007A' 

CD OODF' 

EXPR2: 

CALL 

EXPR3 

007D ' 

CF 

XP2I. s 

TSTCC 

62H,XP24C 

007E' 

62 

+ 

. BYTE 

62H 

007F ' 

29 

+ 

n BYTE 

XP24-.-1 



-I- 3 



0080 ' 

E5 


PUSH 

H 

0081' 

CD OODF' 


CALL 

EXPR3 

0084 ' 

0600 


MV I 

B, 0 

0086 ' 

CD 0000:08 


CALL 

CHKSGN# 

0089 ' 

E3 


XTHL 


008A ' 

CD 0000:08 


CALL 

CHKSGN# 

008D' 

EB 


XCHG 


008E ' 

E3 


XTHL 


008F ' 

7C 


MOV 

A, H 

0090 ' 

B7 


ORA 

A 

0091' 

2806 


JRZ 

XP22 

0093 ' 

7 A 


MOV 

A,D 

0094 ' 

B2 


ORA 

D 

0095 ' 

EB 


XCHG 


0096 ' 

C2 0000:09 


JNZ 

AHOW# 

0099' 

7D 

XP22: 

MOV 

A,L 

009A ' 

21 0000 


LX I 

H, 0 

009D ' 

B7 


ORA 

A 


RST 


RST 


RST 


RST 







PAGE 
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EXPR 


009E **’ 

2832! 


JRZ 

XP25 

OO AO •" 

19 

XP23S 

DAD 

D 

OOA1 - 

DA 0000s09 


JC 

AHOW# 

00 A 4 •" 

3D 


DCR 

A 

00A5 

20F9 


JRNZ 

XP23 

00A7-" 

1829 


JMPR 

XF‘25 

00 A 9 

CF 

XP24s 

TSTCC 

63H,XPR9C 

OOAA 

63 


. BYTE 

63H 

00 AB •" 

65 


»BYTE 

XPR9-.-1 



+ 3 



00 AC 

E5 


PUSH 

H 

OOAD 

CD OODF" 


CALL 

EXPR3 

OOBO"' 

0600 


MV I 

B, 0 

00B2 •** 

CD 0000s08 


CALL 

CI-IKSGN# 

00 B 5 

E3 


XTHL 


00B6 •" 

CD 0000 s08 


CALL 

CHKSGN# 

00B9 

EB 


XCHG 


OOBA"' 

E3 


XTHL 


OOBB 

EB 


XCHG 


00 BC •*' 

7A 


MOV 

A 7 D 

OOBD 

B3 


ORA 

E 

OOBE •" 

CA 0000s09 


JZ 

AHOW# 

00C1 

f:Fi 


PUSH 

B 

00C2-" 

CD OOOOs OA 


CALL 

DIVIDE# 

00C5 

D1 


POP 

D 5 

00C6 •" 

‘ G5 


PUSH 

B 1 

00C7 •" 

CB7A 


BIT 

7 7 D ; 

00C9"' 

C4 0000S07 


CMZ 

CHG8GN# ? 

OOCC"' 

22 OOOOs OB 


SHLD 

REMAIN# ? 

OOCF •“ 

Ei 


POP 

H ? 

OODO •" 

42 


MOV 

B,D * 

00D1 ■- 

4B 


MOV 

C 7 E 

00D2 '■ 

D1 

XP25S 

POP 

D 

00D3 - 

7C 


MOV 

ft, H 

00D4 " 

B7 


ORA 

A 

00D5 •" 

FA OOOOs06 


JM 

SHOW# 

00D8 " 

78 


MOV 

A,B 

00D9 "' 

B7 


URA 

A 

OODA 

FC 0000 s 07 


CM 

. CHGSGN# 

OODD •" 

189E 


JMPR 

XP21 

OODF •- 

21 0115" 

EXPR3S 

LX I 

H»TABS 

00E2"’ 

C3 OOOOs04 


JMP 

EXEC# 

00E5 •" 

CD 0000 s OC 

NOTFs 

CALL 

TSTV# 

00E8-' 

380E 


JRC 

XP32 

OOE A 

EB 


XCHG 


OOEB-" 

CD OOOOsOD 


CALL. 

LDE# 

00 EE"' 



PUSH 

PSW 

OOEF 

13 


I NX 

D 

00 FO 

CD OOOOs OD 


CALL 

LDE# 

OOF 3 •" 

EB 


XCHG 


OOF 4" 

67 


MOV 

H 7 A 

OOF 5 •" 

FI 


POP 

PSW 

00F6 

6F 


MOV 

1.7 A 

00F7 

C9 


RET 


OOFS’" 

CD OOOOsOE 

XP32S 

CALL 

TSTNUM# 


SIGN STUFF TO DE 
SAVE DIVIDE RESULT 
WAS SIGN SET? 

YEP - CHANGE# 

STUFF IT 

RESULT TO HL 

COPY OVER SIGN STUFF 
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EX PR 


PAGE 4 


OOFB 

78 


MOV 

A, B 



OOFG" 

B7 


ORA 

A 



OOP" D 

CO 


RNZ 






? SINGLE 

CHAR S 

TRING CONSTANT? 



OOFE" 

CF 


TSTC 

""",PARN 

5 HAVE 1 

WE GOT QU 



□TES? i: 

RST 

1 



GOFF *" 

2! 2 

4* 

. BYTE 

.•* 1! .•* 



0100 " 

09 

4* 

. BYTE 

PARN ~„~.l 



0101 ■" 

CD 0000sOD 

4*J 

CALL 

LDE# 



0104" 

6F 


MOV 

L,A 5 FAILED 

TSTNUM 

SET H TO 



ZERO 





0105 *“ 

13 


INX 

D 



0106" 

CF 


TSTC 

" " " , XF'RO 

? ERROR 

IF NO TR 



AILING! 

RST 

i 



0107" 

■'"( •'“« 

4* 

. BYTE 

.*• n 



0:!. 08 •*’ 

09 

4* 

. BYTE 

XF’RO ~.~1 





+1 





0109 

C9 


RET 




01OA " 

j*~* p* 

PARNss 

TSTC 

" <", xproi: 

RST 

1 

01 OB" 


4* 

. BYTE 

" (" 



oioc" 

05 

4* 

. BYTE 

XF'RO-. -1 





4- :i 





010D" 

D7 

PARNP s 

RST 

Ko1bXr 



010E" 

CF . 


TSTC 

" ) ", XF’ROC 

RST 

1 

01 OF 

29 

4* 

. BYTE 

" ) " 



0110" 

01 

4- 

„ BYTE 

XPRO-.-l 





+i 





0111" 

C9 

X PR9 s 

RET 




0112" 

C3 0000 s OF 

XPROs 

JMP 

QWHAT# 





S FUNCTION AND 

COMPARISON OPERATION LOOKUP TABLE 

0115" 

F6 

TABS s 

TOKEN 

76H, RND#II 

. BYTE 

76H+80H 

0116" 

0000 s 10 

4* 

. WORD 

RND# 





+ 3 





0118 " 

4BCE 


ITEM 

"KN",GETPOT# C 

.ASCIS 

"KN" 

Oil A" 

0000 s 11 

4- 

„ WORD 

GETPOT# 





+ ] 





011C" 

54D2 


ITEM 

" TR " , GETTRG# II 

.ASCIS 

"TR" 

01 IE" 

0000 s 12 

4- 

»WORD 

GETTRG# 





+:\ 





0120" 

4AD8 


ITEM 

"JX",GETJX#C: 

.ASCIS 

*\JX **’ 

0122" 

0000s13 

4* 

. WORD 

GET JX# 





+ 3 





0124" 

4 AD 9 


ITEM 

"JY",GETJY#C 

.ASCIS 

" JY " 

0126" 

0000 s 14 

4* 

. WORD 

GETJY# 





4* 11 





0128 " 

4BD0 


ITEM 

"KP",GETKB# C 

.ASCIS 

"KP" 

012A" 

0000s15 

4* 

. WORD 

GETKB# 





4-IJ 





012C" 

SODS 


ITEM 

" F’X " , PIXFUN# i: 

.ASCIS 

"PX" 

012E" 

0000s16 

4* 

. WORD 

PIXFUN# 





+i 





0130 " 

A6 


ITEM 

" " , IOFUN# C 

.ASCIS 

■ : 

0131 " 

0000s17 

4- 

. WORD 

IOFUN# 

















TDL Z80 CP/M DISK ASSEMBLER VERSION 2 
EXF'R 


0133*** 

4142D3 

+ 3 

ITEM 

0136-' 

0000s18 


WORD 

0138 •" 

53DA 

4 * 3 

ITEM 

013 A 

0000s19 

“f~ ■ 

. WORD 

013C •" 

FF 

+ ] 

TOKEN 

013D-' 

00E5 *** 

+ 

. WORD 

013F •" 

3EBD 

TAB6S 

ITEM 

0141-' 

OOOA *** 

+ 

. WORD 

0143-' 

A3 

+ 1 

ITEM 

0144" 

0010"' 

~b 

. WORD 

0146" 

BE 

+ 1 

ITEM 

0147" 

0016" 

4* 

. WORD 

0149" 

BD 

+ 3 

ITEM 

014A-' 

0025" 

+ 

. WORD 

014C -' 

3CBD 


ITEM 

014E-" 

00 ID" 

+ 

„ WORD 

0150 •" 

ec 

+ 3 

ITEM 

0151" 

002B " 

+ 

. WORD 

0153" 

FF 


TOKEN 

0154" 

0031 •" 

+ 

. WORD 



+ 3 

.END 


21 PAGE 5 


"ABS" , ABSttC 

„ASCIS 

"ABS 

ABS# 



"SZ" 7 SIZE#! 
SIZE# 

ASCIS 

"SZ" 

7FHiNOTFC 

NOTF 

.. BYTE 

7FH+80H 

">="» XPR1C 

XPR1 

.ASCIS 

"' >= "' 

XPR2C 

XPR2 

ASCIS 


XPR3C 

XPR3 

.ASCIS 


XPR5C 

XPR5 

.ASCIS 

ss: *‘* ' 

XPR4C 

XPR4 

.ASCIS 


» XPR6C 

XPR6 

.ASCIS 


7FH, XPR7I. 

XPR7 

.BYTE 

7FH+80H 
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CP/M DISK AS 

SEMBLER VERSION 2.21 

PAGE 1 

VARS 


. PREL 
.IDENT 
.INSERT 
.INSERT 
.INSERT 

VARS 

HVG.LIB 

MACRO.LIB 

BBEQU.ASM 

oooo • 


.RELOC 

; DEVICE VARIABL 
; THIS TABLE IS 
N MEMORY 

,E TABLE 

IN INVERSE ORDER OF APPEARENCE I 

0007 


PARNUM == 

7 H 7 GUYS 

0000 

0007 

INIDEVs 5 .WORD 

7 

0002 

0000 

. WORD 

0 

0004 

0003 

. WORD 

3 . 

0006 

FFB3 

. WORD 

-77 

0008 

0023 

. WORD 

40 

000A 

0000 

. WORD 

0 

OOOC 


DEVLST s 


oooc 

12 

. BYTE 

'R 

OOOD 

4D 

. BYTE 

-• M 

OOOE 

18 

.BYTE 

•-x 

000F 

59 

. BYTE 


0010 

03 . 

. BYTE 


0011 

59 

.BYTE 

' Y 

0012 

03 

. BYTE 


0013 

58 

.BYTE 

'X' 

0014 

OE 

.. BYTE 


0015 

54 

.BYTE 

T •" 

0016 

06 

.BYTE 

•' F-"-•••©••• 

0017 

- 43 

.BYTE 

c 

0018 

02 

.BYTE 

•- B 

0019 

43 

.BYTE 

; DEVICE VARIABL 
T 

C 

.E TO OUTPUT TO REFERENCED 10 FOR 

001 a- 

EF 

PUTIOss RST 

RSTPAR 1 GET PORT # 

001 B' 

CF 

TSTC 

RST 1 

PUT 102 % GET EQUALS E 

001 C 

' 3D 

+ .BYTE 

«*** c e# 

00 ID' 

OB 

+ .BYTE 

+:j 

PUTI02 -.-1 

001E' 

E5 

PUSH 

H ? SAVE PORT # 

00 IF 

D7 

RST 

LLOWING 

RSTEXP S EVALUATE EXPRESSION FO 

0020 

7D 

MOV 

A? L ? A=VALUE TO OUTPUT 

0021 

El 

POP 

H 5 RESTORE PORT # 

0022 

C5 

PUSH 

B 

0023 

44 

MOV 

Bi H 

0024 

4D 

MOV 

CrL 

0025 

ED79 

OUTP 

A ? IT 1 

0027 

- Cl 

POP 

B 

0028 

- F7 

BBRET 5 RST 

RSTFIN § GO HOME 

0029 

C3 OOOOs0 

(4 PUT 102 5 JMP QWHAT# 

? FUNCTION TO RETURN VALUE OF A GIVEN 10 PORT 

002C 

EF 

IOFUN”« RST 

RSTPAR ? GET PORT NUMBA 

002D 

C5 

PUSH 

B 

002E 

44 

MOV 










TDL Z80 
VARS 

CP/H DISK ASS 

EMBLER VERSION 2. 

21 PAGE 2 

002F 

4D 

MOV 

L- ? L. 

0030 

ED78 

IMP 

A 

0032 

6F 

MOV 

L.., A 

0033 

2600 

MV I 

H, 0 

0035 

Cl 

POP 

B 

0036 

C9 

RET 




? ROUTINE TO TRANSFER CONTROL TO ASSEMBLY LANGUA 



GE SUBROUTINE 


0037 ** 

21 0028-' 

DOCALLss L.X I 
ACK 

H»BBRET ? PUSH RETURN ADDR ON ST 

003A’ 

E5 

PUSH 

H 

003B 

D7 

RST 

RSTEXP ” GET ADDRESS 

0030' 

E9 

PCHL 

5 AND JUMP TO IT 



? FUNCTION TO 

SENSE DIAL VALUE 

003D • 

3E1B 

GETPOTs: MVI 

A, 1BH 

003F •' 

CD 006B 

CALL 

CHKRNG 5 GET DATA 

0042' 

2F 

CMA 


0043" 

D680 

SUI 

80H 

0045* 

6F 

MOV 

L, A 

0046 •’ 

C3 0000s05 

JMP 

SGNEXT# 



! FUNCTION TO 

SENSE STATE OF TRIGGER 

0049"' 

CD 0069-' 

GETTRG5s CALL 

CHKRN1 

0040 • 

E610 

AN I 

10H 

004E •' 

08 

RZ 


004F • 

2C 

I NR 

L 

0050 - 

C9 

RET 




5 FUNCTIONS TC 

RETURN JOYSTICK VALUE 



5 THESE FUNCTIONS RETURN EITHER +1, ,0 OR -1, D 



EPENDING 

5 ON JOYSTICK 

STATE 

0051 “ 

CD 0069-* 

GETJXs; CALL 

CHKRN1 ? FARM IN RANGE? 

0054 “ 

OF 

RRC 


0055 *' 

OF 

RRC 


0056 *’ 

OF 

RRC 


0057 - 

•* . 38 OE 

JRC 

GETJYS 

0059 - 

OF 

RRC 


005ft- 

.3807 

JRC 

GETJY1 

005C “ 

C9 

RET 




5 ENTRY FOR Y 

JOYSTICK VALUE 

005D- 

CD 0069-* 

GETJYs: CALL 

CHKRN1 

0060 ' 

OF 

RRC 


0061 * 

3002 

JRNC 

GETJY2 

0063 

23 

GET .J Y1 s INX 

H 

0064 *' 

C9 

RET 


0065 - 

OF 

GETJY2S RRC 


0066 *' 

DO 

RNC 


0067- 

2B 

GETJYSs DCX 

H 

0068 - 

C9 

RET 




? SUBROUTINE T 

0 GET PARAMETER BETWEEN 1 AND 4 

0069 - 

3 EOF 

CHKRN1s MVI 

A, OFH 

006B- 

C5 

CHKRNGs PUSH 

B 

006C - 

F5 

PUSH 

PSW 

006D - 

e:f 

RST 

RSTPAR 

006E- 

Ft 

POP 

PSW 

006F - 

85 

ADD 

L 
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VARS 


PAGE 


2 # 


0070" 

4F 

MOV 

C, A 

0071 •" 

ED78 

IMP 

A 

0073' 

Cl 

POP 

B 

0074 •" 

21 0000 

LX I 

H, 0 

0077*'* 

C9 

RET 

? SETVAL ? FIN, 

AND ERROR 

OO / *r‘ ** 

CD 008E 

SETVALs; CALL 

TSTVFF 

007B •" 

CF 

TSTC 

- = -,SVWHi 

007C •" 

3D 

+ »BYTE 

*** — •*' 

0070 •" 

15 

4- . BYTE 

+ 1 

SVWHAT-. • 

007E'" 

E5 

SETVI;s PUSH 

H 

007F 

D7 

RST 

RSTEXP 

0030 *'* 

44 

MOV 

B,H 

0081 

4D 

MOV 

C, L 

0032 "* 

El 

POP 

H 

0083*'* ■ 

F5 

PUSH 

PSW 

0084 •" 

79 

MOV 

A, C 

0085' 

CD 0000s06 

CALL 

STHL# 

0088 *'* 

23 

INX 

H 

0089 “* 

78 

MOV 

A, B 

008A ■" 

CD 0000 s 06 

CALL 

STHL# 

008D *'* 

FI 

POP 

■? SUBROUTINE TO 
ONE 

PSW 

GET A VAI 

008E •" 

CD 0096 •" 

TSTVFF s i CALL 

TSTV 

0091 •" 

DO ' 

RNC 


0092 •" 

C9 

RET 


0093 

C3 0000s04 

SVWHAT s JMP 

QWH AT #• 

0096 •" 

E7 

TSTV; 3 RST 

RSTION 

0097 •" 

FE25 

CPI 


0099 

28 IE 

•JRZ 

TSTVO 

009B •" 

D640 

SUI 

@ •" 

009D •" 

D8 

RC 


009E;' 

20 ID 

■ JRNZ 

TV 1 

00 AO ■" 

13 

INX 

D 

00 A1 •" 

EF 

RST 

RSTPAR 

00 A2 •" 

9Q 

DAD 

H 

00 A3 •" 

DA 0000s07 

JC 

QHOW# 

00 A 6 •' 

D5 

TSTBs PUSH 

D 

00A7 •" 

EB 

XCHG 


00A8 •" 

CD 0000s 08 

CALL 

SIZE# 

OOAB •" 

CD 0000§09 

CALL 

COMP# 

00 AE '■ 

DA 0000“OA 

•JC 

ASORRY# 

OOB1 •" 

2A oooo;OB 

L.HLD 

TXTUNF# 

00B4 ■" 

2B 

DCX 

H 

00B5 

2B 

DCX 

H 

OOB6 -■ 

19 

DAD 

D 

00B7 •" 

D1 

POP 

D 

00B8-" 

C9 

RET 

? 7. ( ADDR) PEEK- 

POKE CALL 

00B9 •" 

13 

TSTVOs INX 

D 

OOBA 

EF 

RST 

RSTPAR 

OOBB-" 

AF 

XRA 

A 

OOBC •" 

C9 

RET 

? AND GO 


RST 


PEEK-POKE"; 


GET ADDR 
CLEAR CY 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
VARS 


OOBD 

FE1B 

TVls 

CPI 

27 

OOBF 

3F 


CMC 


OOGO *” 

D8 


RC 


OOCl •" 

13 


I MX 

D 



; IS S 

ECOMD CHARACTER ALSO ALPHA? 

00.C2 *’* 

6F 


MOV 

L,A ? SAVE FIRST ONE 

Q0C3 *“ 

CD 0000sOC 


CALL 

LDE# 

00C6 x 

FE41 


CPI 

•"A'" 

00C8 x 

U826 


JRC 

DEVV4 ? IF NOT IN RANGE A-Z 

OOCA"’ 

FE5B 


CPI 

••'Z" + l 

OOCC *“ 

3022 


•JRNC 

DEVV4 ; THEN SEARCH 

OOCE •** 

C5 


PUSH 

B 

00 CF 

D5 


PUSH 

D 

OODO **■ 

67 


MOV 

Hi A " SECOND CHAR TO H 

OODl 

0607 


MV I 

BiPARNUM S B - ITERATION 



CTR 



00D3 

11 oooc •" 


LX I 

DiDEVLST 5 DE - SEARCH TA 



BLE 



ODD 6 -* 

1A 

DEW is 

LDAX 

D 5 GET FIRST ENTRY 

00D7 " 

13 


I NX 

D 

00D8 

BD 


CMP 

L 

00D9 

1A 


LDAX 

D 

OOD A •" 

13 


I NX 

D 

OODB •" 

200B 


JRMZ 

DEVV2 

OODD ■" 

BC 


CMP 

H 

code:**’ 

2008 


•JRNZ 

DEW2 



? MATCH FOUND - 

FIGURE OUT LOOKUP INDEX 

OOEO ■' 

78 


MOV 

A» B 

OOE1 

C61A 


ADI 

26 

00E3'" 

6F 


MOV 

Li A 

00E4 •" 

D1 


POP 

D 

OOEO 

13 


I NX 

D . 5 BUMP CHAR PTR 

00E6 

1807 


•JMPR 

DEWS! 



5 MISMATCH - LOOP BACK IF POSS 

00E8 

1OEC 

DEVV2S 

DJNZ 

DEW 1 



5 NOT 

POSSIBLE • 

- RETURN NOT A VAR 

OOE A 

D1 


POP 

D 

OOEB 

Cl 


P*OP 

B 

OOEC 

IB 


DCX 

D ? BACKUP TO CHAR START 

OOED •" 

37 


Sic 

? SET CARRY 

OOEE 

C9 


RET 


OOEF 

Cl 

DEVV3S 

POP 

B 

OOF 0 

7D 

DEVV4: 

MOV 

A»L 

OOF 1 •" 

21 FFFEsOD 


LX I 

HiVARBGN#-2 

00F4 •" 

07 


RL.C 


OOF 5 •" 

85 


ADD 

L 

OOFS 

6F 


MOV 

L i A 

00F7 " 

3E00 


MV I 

Ai 0 

00F9'" 

8C 


ADC 

H 

OOFA'" 

67 


MOV 

H ? A 

OOFB •" 

C9 


RET 





. END 
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. F'REL 
.IDENT 

MATH 





.INSERT 

HVG.LIB 





.INSERT 

MACRO.LIB 





. INSERT 

BBEQU.ASM 


oooo •** 



.RELOC 






? BCD MATH ROUTINE INTERFACE 





? IMPLEMENTS $+, 

*/ 


0000 x 

E7 


BCDMATs: RST 

RSTIGN 


0001 

13 


INX 

D 


0002 

F5 


PUSH 

PSW ? SAVE 

CODE SCANNED 

0003 *’* 

CD 

0000504 

CALL 

TSTVFF# ? GET F 

IRST VAR 

0006 *** 

D5 


PUSH 

D 


0007 *“ 

11 

0000 5 05 

LX I 

D,BCDA1# 

? CONVERT TO BCD 

000A '■ 

CD 

005D *■’ 

CALL 

ASCBCD 


000D •" 

D1 


POP 

D 


OOOE'" 

CF 


IS ICC 

COMMA,BCDDUD 

5 INSIST ON COMM 




ASH RST 

1 


00 OF 

20 


+ .BYTE 

COMMA 


oo i o 

o o 


+ .BYTE 

+ 3 

BCDDUD -.-1 


0011 

CD 

0000 5 04 

CALL 

TSTVFF# § GET 2 

ND VAR 

0014- 

FI 


POP 

PSW- 


0015-’ 

D5 


PUSH 

D 


0016" 

11 

00005 06 

LX I 

D,BCDA2# 

S SAME STORY 

0019 

F5 


PUSH 

PSW 


001A 

CD 

005D-' 

CALL 

ASCBCD 


001D •" 

11 

00005 05 

LX I 

D.BCDA1# 


0020 •' 

FI 


POP 

PSW 


0021 

060 

>9 

MVI 

B»9 


0023-' 
0026 •" 

CD 

D1 

0047 

CALL 

POP 

TO STORE 

TSTCC 

DOBCDO 

D . 

T SCAN FOR PLACE 

0027 

CF 


COMMA,BCDDUD t 

if*** “Y** *| 

ho i 1 

0028 

2C 


+ . BYTE 

COMMA 


0029 

1A 


+ .BYTE 

BCDDUD-.-1 





+ .1 



002A 

CD 

0000 5 04 

CALL 

TSTVFF# 


002D 

D5 


PUSH 

Ei 


002E 

11 

OOOOs05 

LX I 

D,BCDA1# 





? ARGl CONTAINS 

THE RESULT •» ST 

TCK IT LAST VAR 

0031 •" 

01 

1200 

LX I 

B,1200H 


0034"' 

EB 


BCDASC: XCHG 



0035 

FF 


INDEXNCINTF’%C. IFE . INTF 

, ERST 73 3 

0036 

56 


+ „ BYTE 86+03 



0037 

C63 

SO 

ADI 

“0** 


0039 

EB 


XCHG 



003A 

CD 

0000 s 07 

CALL 

STHL# 


003D 



INX 

H 


003E •" 

■ Isd’cl 


INX 

H 


003F 

oc 


1NR 

C 


0040 •" 

1 OF 


DJNZ 

BCDASC 


0042 " 

D1 


POP 

D 


0043 •" 

F7 


RST 

RSTFIN 














PAGE 


TDL Z80 
MATH 


0044 

0047:' 
0049 ** 
004B “ 
004Ei “ 
004F “ 

0050“ 
0051 *' 
0052“ 

0053“ 
0054“ 
0055 “ 
0057 “ 

0053 “ 
0059 “ 
.005A “ 
005B “ 
005C “ 


005D “ 
005E “ 
0061 
0064 “ 
0065 “ 
0066 “ 
0067“ 
0063“ 
0069 “ 
0068“ 

006C “ 

006D * 
006E “ 
006F • 
0072 “ 
0073 • 
0076* “ 
0077 • 
0078“ 
0079 * 
007A* 
007B * 
007C “ 
G07D; 
007E * 
007F * 

0080 * 


CP/M DISK ASSEMBLER VERSION 2„21 


! 

t 


C3 0000"08 

BCDDUD* 

■JMP 

QWHAT # \ 


? SUBROUTINE TO 

IT 1 

FE62 

DOBCDOs 

CPI 

62H ? < MUiir? 

300A 


JRNC 

BCD3 ? NO 1 

FE2D 


CPI 

1 YES IS IT MINUS? 

2803 


JR 2 

BCD2 5 JUMP fiF SO 

FF 


BCBADD 

? NO - ITS ADD THENC INTP'/.E . IFE . 


INTP.,I RST 711 


62 

+ .BYTE 

98+01 


C9 


RET 


pp 

BCD2 s 

BCDSUB 

? SUBTR 11! INTP”/.E. IFE „ INTP„ , 11 RST 


7 311 



64 

+.BYTE 

100+01 


C9 


RET 


2003 

BCD3s 

JRNZ 

BCD4 ; JUMP IF NOT = TIMES 

FF 


BCDMUL 

5 ELSE MULT Z INTP'/.E. IFE .1 NTP. , ER 


ST 713 



66 

+ .BYTE 

102+0II 


09 


RET 


pp 

BCD4S 

BCDDIV L INTP'/. Z, IFE .1NTP. , CRST 711 

68 

+.BYTE 

104+01 


C9 


RET 



5 SUBROUTINE TO 

CONVERT ASCII STRING TO BCD 


5 HL = 

ASCII IN, 

DE=BCD OUT 


5 OUT £ 

DE=ASCII 

: IN BUMPED, HL=BCD OUT NOT BUMPE 


D 



EB 

ASCBCD! 

XCHG 


01 1200 


LX I 

B,1200H 

CD 0000* 09 

ASCBCls 

CALL 

LDE# 

FF 


STOREN Z 1 NTP'/. Z. IFE .1 NTP „ , Z RST 711 

58 

+ »BYTE 

88+01 


oc 


I NR 

c 

1 o 


INK 

D 

13 


I NX 

D 

10F6 


BJNZ 

ASCBC1 

C9 


RET 



5 RANDOM NUMBER 

FUNCTION 

pp 

RND5 3 

RST 

RSTPAR 

7C 


MOV 

A, H 

B7 


ORA 

A 

FA 0000«OA 


JM 

QHOW# 

B5 


ORA 

1 "•.■^■.^'2 V- ■, • y. y 

CA 0000s 0A 


JZ 

QHOW# 

D5 


PUSH 

D 

EB 


XCHG 

5 DE = RANGE 

AF 


XRA 

A 

FF 


RANGED Z I NTP*/. Z . IFE . I NTP. , Z RST 711 

76 

+ «BYTE 

118+01 


6F 


MOV 

L, A 

AF 


XRA 

A 

FF 


RANGED Z INTP7. C . IFE .1 NTP. , Z RST 711 

76 

+ .BYTE 

118+01 


67 


MOV 

H ? A 


“ HL = 

RANDOM # 


C5 


PUSH 

B 
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0081" 
0084' 
0085' 
0088 • 
0087" 

0088 • 
0089 • 
008A' 
008D •' 
008E" 

008F" 
0092- 
0093 • 
0094" 
0097- 
0098- 
009A" 
009B' 

009C - 
009E' 
009F •' 
00A0 - 

ooft i - 

00 A2' 

00 A3' 
00A4 - 
00A5- 
00A7 - 
00 A A" 
OOAB •' 
00 AC" 
00 AD 
OOAE" 
OOBO - 
00B1 - 
00B2" 
00B4" 
00B6 - 
00B7" 
00B8" 
00B9- 
OOB A - 
00B8" 
OOBC" 
OOBD" 
OOBE - 
OOBF" 

ooco - 

OOC1 - 
00C2 - 
00C3" 


CP/M DISK ASSEMBLER VERSION 2.21 


PAGE 


CD 00A3 

CALL- 

DIVIDE 

Cl 

POP 

B 

D1 

POP 

D 

23 

INX 

H 

C9 

RET 



? ABSOLUTE VALUE FUNCTION 

EF 

ABS:s RST 

RSTF'AR 

IB 

DC X 

D 

CD 00B8-‘ 

CALL 

CHKSGN 

13 

INX 

D 

C9 

RET 



? SIZE FUNCTION 

>- RETURNS BYTES NOT YET USED 

2A 0000 s OB 

SIZESs LHLD 

TXTUNF# 

D5 

PUSH 

D 

EB 

XCHG 


21 A70C 

LX I 

Hi DFTLMT 

A7 

ANA 

A 

ED52 

DSBC 

D 

Di 

POP 

D 


RET 



5 SIGN EXTEND S 

UBROUTINE 

2600 

SGNEXJs s MVI 

Hi 0 

7D 

MOV 

A i L 

A7 

ANA 

ft 

FO 

RP 


25 

OCR 

H 

C9 

RET 



1 DIVIDE? SUBDE 

» CHKSGN s CHGSGN? CKHLDE 

E5 

DIVIDESs PUSH 

H 

6C 

MOV 

Lt H 

2600 

MVI 

H ■, 0 

CD OOAE-' 

CALL 

DV1 

41 

MOV 

B 7 L- ■ ■ 

7D 

MOV 

A? L 

El 

POP 

H 

67 

' MOV 

H* A 

OEFF 

BVls MVI 

L-1 1 

OC 

DV2s INR 

c 

A7 

ANA 

A 

ED52 

DSBC 

D 

SOFA 

JRNC 

DV2 

19 

DAD 

D 

C9 

RET ■ 


7C 

CHKSGNs: MOV 

A» H 

B7 

ORA 

ft 

FO 

RP 


7C 

CHGSGNs s MOV 

A? H 

B5 

ORA 

L 

r*R 

RZ 


7C 

MOV 

AVH 

F5 

PUSH 

PSW 

2F 

CM A 


67 

MOV 

H, A 

7D 

MOV 

A ? L_. 

2F 

CM A 
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00C4 •" 

6F 


MOV 

L, A 

0005 

2-.:! 


I MX 

H 

0006 

FI 


POP 

PSW 

0007 

AC 


XRA 

H 

0008 ■" 

F2 0000SOA 


JP 

SHOW# 

OOCB 

78 


MOV 

At B 

0000 •" 

EE80 


XRI 

80H 

OOGE •" 

47 


MOV 

Bi A 

OOCF •- 

09 

5CKHLDE 5 

RET 

MOV 



7 

XRA 

D 



1 

JP 

OKI 



M 

7 

XCHG 




3 OK 13 

CALL 

COMP 



7 

RET 




3 COMPS 

MOV 

At H 




CMP 

D 



»l 

RNZ 




n 

7 

MOV 

At L 




CMP 

E 



n 

RET 



. END 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 1 

STDBAS ~ 


. PREL 

» I DENT STDBAS 
.INSERT HVG.LIB 
.INSERT MACRO.LIB 





.INSERT 

' BBEQU.ASM 

OOOO 



. RELOC 


0000 

D7 

GOTO s s 

RST 

RSTEXP 

0001 

D5 


PUSH 

D 

0002 *” 

CD 0000s04 


CALL 

FNDLN# 

0005 

C2 0000s05 


•JNZ 

AHOW# 

0008 

FI 


POP 

PSW 

0009*'* 

C3 0000s06 


JMP 

RUNTSL# 



? LIST 

AND PRINT . 



5 NEW 

~ IMPROVED LIST COMMAND 



5 LETS 

YOU PUT 

IT IN A PROGRAM 

oooc •" 

21 0000 

LISTS s 

LXI 

H 1 0 5 ASSUME AT EOL 

00 OF ■“ 

E7 


R9T 

RST I GN ? IGNORE 

0010 '' 

CD 0000 s 07 


CALL 

ATNL# 

001 3 •" 

2805 


JRZ 

LS3 

0015'" 

FE2C 


CPI 

? LEADING COMMA? 

0017" 

2801 


•JRZ 

LS3 ? YEP -- SKIP FIRST 



EXPR GET 




5 NOT 

AT END - 

GET FIRST EXPR 

0019 *“ 

D7 

L82 s 

RST 

RSTEXP 

001 A" 

E5 

LS3s 

PUSH 

H 

00 IB-' 

21 FFFF 


LXI 

H,OFFFFH 

00 ! E “* 

CF 


TSTCC 

COMMA,LS4C RST 1 

001F 

2 C 

4* 

. BYTE 

COMMA 

0020 

01 

+ 

. BYTE 

LS4—."1 



+ ] 



0021 

D7 


RST 

RSTEXP 

0022 •" 

D5 

LS4s 

PUSH 

D 

0023 •- 

FDE1 


POP 

Y 

0025 •" 

E3 


XTHL 


0026 

CD 0000s04 


CALL 

FNDLN# 

0029 

3815 

L85s 

JRC 

LSQUIT 

0028" 

E3 


XTHL 


002C " 

7C 


MOV 

A,H 

002D" 

B5 


ORA 

L 

002E •- 

2810 


JRZ 

LSQUIT 

0030 

2 B 


DCX 

H 

0031." 

E3 


XTHL 


0032" 

CD 0000 s 08 


CALL 

PRTLN# 

0035" 

CD 00005 09 


CALL 

PRTSTG# 

0038 

CD 0000sOA 


CALL 

WHATSU# ' 

003B " 

CD OOOOs OB 


CALL 

FNDL.P# 

003E " 

18E9 


JMPR 

LS5 

0040" 

FDE5 

LSQUIT 

s PUSH 

Y 

0042 "' 

01 


POP 

D 

0043 "' 

F 7 


RST 

RSTFIN 

0044 "' 

0E08 

PRINTS 

s MV I 

C, 8 

0046" 

CF 


TSTCC 

59,PR1C RST 1 

0047 " 

3B 

4* 

. BYTE 

59 

0048"' 

06 

4 . 

. BYTE 

PR1—.”1 



+3 
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0049 *** 

CD 0000sOC 


CALL 

CRLF# 

004C •" 

C3 0000sOD 


JMP 

RUNSML.# 

004F 

CF 

PR is 

TSTCC 

CR».PR6C RS 

0050 

OD 

H- 

„ BYTE 

CR 

0051 *** 

1C 

+ 

„ BYTE 

PR6-»-1 



+i 



0052 ■- 

CD 0000:OC 


CALL 

CRLF# 

0055 

C3 0000sOE 


■JMP 

RIJNNXL# 

0058*“ 

CF 

PR2 s 

TSTC 

, PR4C 

0059*- 



.BYTE 


005A *- 

OB 


.BYTE 

PR4-.-1 



+i 



005B *- 

D7 

PR3s 

RST 

RSTEXP 

005C •" 

3EC0 


MV I 

A,OCOH 

005E •" 

A5 


ANA 

L 

005F •“ 

B4 


ORA 

H 

0060 *- 

C2 0000 s OF 


JNZ 

QHOW# 

0063 *- 

4D 


MOV 

C 1 L 

0064 

1805 


JMPR 

PR5 

0066 - 

CD 0000«26 

PR4s 

CALL 

QTSTG 

0069''' 

1814 


JMPR 

PR9 

006B'" 

CF 

F'RSs 

TSTCC 

COMMAj PR8 C 

006C 

2C 

4* 

„ BYTE 

COMMA 

006D 

OD 

4 

„ BYTE 

PR8-.-1 



+ 3 



006E *- 

CF 

PR65 

TSTCC 

COMMA 5 PR71 

006F *- 

2C 

Hh 

„ BYTE 

COMMA 

0070 •** 

05 

+ 

. BYTE 

PR7-.-1 



+3 



0071 x 

3E20 


MV I 

Aj 

0073 **‘ 

DF 


RST 

RSTOCH 

0074 *** 

18F8 


JMPR 

PR6 

0076 *“ 

CD 0000s10 

PR7S 

CALL 

FIN# 

0079 •- 

18DD 


JMPR 

PR2 

007B *- 

CD 0000sOC 

PR8 s 

CALL 

CRLF# 

007E *- 

F7 


RST 

RSTFIN 

00 7F *” 

D7 

PR9s 

RST 

RSTEXP 

0080 *- 

C5 


PUSH 

B 

0081 •'* 

CD 0000 s11 


CALL 

PRTNUM# 

0034 - 

Cl 


POP 

B 

0085 '* 

18E4 


JMPR 

PR 5 



S GOSUB 

AND RETURN 

0087 *•* 

CD 020D"' 

GOSUBss 

CALL 

PUSH A 

OOSA *“ 

D7 


RST 

RSTEXP 

008B *‘‘ 

D5 


PUSH 

D 

003C **’ 

CD 0000 s 04 


CALL 

FNDLN# 

008F *" 

C2 0000s05 


JNZ 

AHOW# 

0092 *- 

2A 0000:12 


LHLD 

CURRNT# 

0095*- 

E5 


PUSH 

H 

0096 *" 

2A 0000:13 


LHLD 

STKGQS# 

0099 - 

E5 


RUSH 

H 

00 9A *- 

21 0000 


LX I 

H, 0 

009Ei y 

22 0000514 


SHLD 

LOPVAR# 

OOAO *- 

•~*9 


DAD 

SP 
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00A4 

00A7 

OOAA 

OOAB 

OOAC 

OOAF 

OOBO 

GOBI 

00B4 

00B5 

00B8 

00B9 

OOBC 

OOBD 

ooco 

00C3 

00C4 

00C7 

00C8 

00C9 

OOCA- 
OOCB' 
OOCE- 
OODi " 

00 D 2 •' 
GODS’ 

GOD 4' 
00D5' 
GODS' 
OODB" 
OGDE' 
OODF- 
G0E2 ■ 
GOES' 
GOES' 
00E9' 
OOE A' 
GOES' 
OOEC' 
OGEE' 
GOEF' 
OGFG' 
OOF 1' 
00F2' 
00F4' 
OOFS' 
OOFS' 
0GF7' 
GGF9' 
OOF A' 
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C3 0000 » 06 


JMP 

RUNTSL# 

2A 0000s13 

RETURN 

5 5 LHLD 

STKGOS# 

7C 


MOV 

A ? H 

B5 


ORA 

L 

CA OOOOs15 


JZ 

QWHAT# 

F9 


SPHL 


El 

RESTOs 

POP 

H 

22 0000S13 


SHLD 

STKGOS# 

El 


POP 

H 

22 0000 512 


SHLD 

CURRNT# 

D1 


POP 

D 

CD 01F2-’ 


CALL 

POPA 

F7 


RST 

RSTFIN 


; FOR 

AND NEXT 


CD 020D •' 

FOR 5 s 

CALL 

PUS HA 

CD 0000216 


CALL 

SETVAL# 

2.8 


DCX 

H 

22 0000514 


SHLD 

L.OPVAR# 

CF 

1 

TSTCC 

77H,FR1A 

77 

1 

4* 

.BYTE 

77H 

01 

4* 

. BYTE 

FR.I.A -.-1 

D7 

6 J 

FR15 

RST 

RSTEXP 

22 0000517 

FRIAS 

SHLD 

LOPLMT# 

21 0001 


LX I 

Hi 1 

GF 

1 

TSTCC 

75H i FR4 § STEP? Z 

75 

1 

4* 

„ BYTE 

75H 

01 

4* 

. BYTE 

FR4 —.—1 





D7 


RST 

RSTEXP 

22 OOOOs18 

FR4 s 

SHLD 

LOPINC # 

2A 0000512 


LHLD 

• CURRNT# 

22 0000519 


SHLD 

LOPLN# 

EB 


XCHG 


22 OOOOs1A 


SHLD 

LOPPT# 

01 000A 


LX I 

B> 10 

2A OOOOs14 


LHLD 

LOPVAR# 

EB 


XCHG 


60 


MOV 

Hi B 

68 


MOV 

LiB 

39 


DAD 

SP 

1801 


JMPR 

FR6 

09 

FR5 2 

DAD 

B 

7E 

FR6« 

MOV 

A,M 



I NX 

H 

B6 


ORA 

M 

2817 


■JRZ 

FR7 

7E 


MOV 

A,M 

2B 


DCX 

H 

BA 


CMP 

D 

20F5 


■JRNZ 

FR5 

7E 


MOV 

A,M 

AB 


XRA 

E 


PAGE 
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RST 
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OOFEK 

20F1 


JRNZ 

p p 5L” 

OOP" D •" 

EB 



XCHG 


OOFE" 

67 



MOV 

Hi A 

OOFF x 

6F 



MOV 

L 7 A 

0100 '■ 

39 



DAD 

SP 

0101 

44 



MOV 

B,H 

0102 " 

4D 



MOV 

L« 7 L 

0103 " 

21 

OOOA 


LX I 

Hi 10 

0106" 

19 



DAD 

D 

0107" 

CD 

0000:IB 


CALL 

MVDOWN# 

010 A 

p9 



SPHL 


01 OB" 


0000 : 1 A 

FR7: 

LHLD 

LOPPT# 

Ol.OE" 

EB 



XCHG 


01 OF" 

P7 



RST 

RSTFIN 

0110 " 

CD 

0000:1C 

NEXT:: 

CALL 

TSTV# 

0113" 

DA 

0000:15 


JC 

QWHAT# 

0116" 

. *!*«• 

0000 :ID 


SHLD 

VARNXT# 

0119" 

D5 


NX 1: 

PUSH 

D 

Oil A" 

EB 



XCHG 


01 IB" 

2A 

0000:14 


LHLD 

LOPVAR# 

01 IE" 

7C 



MOV 

AiH 

01 IF" 

B5 



ORA 

L 

0120 " 

CA 

0000:IE 


JZ 

AWHAT# 

0123 *" 

CD 

0000 sIF 


CALL 

COMP# 

0126" 

2809 


JRZ 

NX2 

0128" 

D1 



POP 

D 

0129" 

CD 

01F2" 


UALL 

POPA 

012C" 

2A 

0000:ID 


LHLD 

VARNXT# 

012F" 

i 8 E 8 


JMPR 

NX 1 

0131 " 

EB 


NX2S . 

XCHG 


0132 " 

CD 

0000 % 20 


CALL 

LDE# 

0135" 

6 F 



MOV 

L i A 

0136" 

13 



INX 

D 

0137" 

CD 

0000 5 20 


CALL 

LDE# 

013 A " 

67 



MOV 

Hi A 

013B" 

EB 



XCHG 


013C " 

2A 

0000:18 


LHLD 

LOP I NC 

013F" 

E5 



PUSH 

H 

0140" 

7C 



MOV 

A,H 

0141 " 

AA 



XRA 

D 

0142" 

7A 



MOV 

A,D 

0143" 

19 



DAD 

D 

0144" 

FA 

014B" 


JM 

NX'S 

0147" 

AC 



XRA 

H 

0148" 

FA 

0172-" 


JM 

NX5 

014B" 

EB 


NX3: 

XCHG 


014C" 

2A 

0000 s14 


LHLD 

LOPVAR# 

014F" 

7B 



MOV 

AiE 

0150" 

CD 

0000:21 


L-ALL 

STHL# 

0153" 

23 



INX 

H 

0154" 

7A 



MOV 

A i 0 

0155" 

CD 

0000:21 


CALL 

STHL# 

0158 " 

2A 

0000:17 


LHLD 

LOF'LMT# 

0 1 5B " 

FI 



POP 

PSW 
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015D" 

F2 0161" 


jp 

NX 4 

0160'* 

EB 


XCHO 


0161" 

CD 0000s22 

NX4s 

CALL 

CKHLDE# 

0.1.64- 

D1 


POP 

D 

0165" 

380D 


JRC 

NX6 

0167 "* 

2A 0000:19 


LHLD 

LOPLN# 

016 A - 

22 0000:12 


SHLD 

CURRNT# 

016D" 

2A 0000s1A 


LHLD 

LOPPT # 

0170- 

EB 


XCHG 


0171" 

F7 


p C; 

RSTFIN 

0172" 

El 

NX 5; 

POP 

H 

0173" 

D1 


POP 

D 

0174" 

CD 01F2" 

NX6S 

CALL 

POPA 

0177" 

p*7 


RST 

RSTFIN 



? REM, 

IF, INPUT, LET 

0178" 

21 0000 

REM: s 

LX I 

H, 0 

01 7B **’ 

1801 


JMPR 

I FI 

017D" 

D7 

IFF: s 

RST 

RSTEXP 

017E" 

7C 

IF is 

MOV 

A, H 

017F" 

. B 5 


ORA 

L 

0180" 

C2 0000 sOD 


JNZ 

RUNSML# 

0183" 

CD 0000s 23 


CALL 

FNDSKP# 

0186 

D2 0000 s 06 


JNC 

RUNTSL# 

0189" 

C3 0000s24 


JMP 

RST ART # 

018C" 

2A 0000s25 

INPERRs 

s LHLD 

STKINP# 

018F " 

F9 


SPHL 


0190 " 

El 


POP 

H 

019 1 " 

22 0000s12 


SHLD 

CURRNT# 

0194" 

D1 


POP 

D 

0195 " 

D1 


POP 

D 

0196 " 


INPUT 

sssssg 

IS 

0196" 

D5 

IP1 5 

PUSH 

D 

0197" 

CD 0000s26 


CALL 

QTSTG# 

■019A" 

1823 


JMPR 

IPS 

019C " 

CD 0000 s 1C 

IP2: 

CALL 

TSTV# 

0J.9F" 

3817 


JRC 

IPS .. 

01A1 " 

CD 01CF" 

IP3: 

UALL 

IP 12 

01A4" 

11 0000:27 


LX I 

D,BUFFER# 

01A7" 

D7 


RST 

RSTEXP 

01A8" 

D.1 


POP 

D 

01A9" 

EB 


XCHG 


01AA" 

7B 


MOV 

A, E 

01AB." 

CD 0000 s 21 


L ALL 

STHL# 

0.1 AE" 

xl C* 


I NX 

H 

01AF" 

7A 


MOV 

A, D 

01 BO" 

CD 0000:21 


CALL 

STHL# 

01B3" 

El 

IP4: 

POP 

H 

0.1.B4" 

22 0000:12 


SHLD 

CURRNT# 

01B7" 

01 


POP 

D 

01B8" 

FI 

IP5 s 

pop 

P8W 

01B9" 

CF 

IP6s 

TSTCC 

COMMA,IP7C 

01 BA" 

2C 

+ 

„ BYTE 

COMMA 

01BB" 

02 

. 4* 

t “1 

byte: 

IP7-.-1 

01BC" 

18D8 

4* J 

JMPR 

INPUT 


RST 1 
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01 BE"' 

F7 

IF‘7 s 

RST 

RSTFIN 

0.1 BF" 

D5 

I p 0 « 

PUSH 

D 

01 CO •" 

CD 0000 s 1C 


CALL 

TSTV# 

01C3 

3003 


JRNC 

IP 11 

01C5 

C3 0000 s15 

IP 10 5 

JMP 

QWHAT# 

01 C 8 

43 

IPUS 

MOV 

B» E 

o ic"? 

D 1 


pop 

D 

01C A 

CD 0000s28 


UftLL 

PRTCHS# 

01 CD-’ 

18D2 


•JMPR 

IPS 

01 CF-- 

Cl 

IP 12 5 

POP 

B 

01 DO-' 

D5 


PUSH 

D 

01 D 1 

EB 


XCHG 


0 1 D 2 '■ 

2A 0000s12 


LHLD 

CURRNT* 

01 D5 *** 

E5 


PUSH 

H 

01D6-" 

21 0196'- 


LX I 

Hi IP1 

01D9 " 

22 0000 s 12 


SHLD 

CURRNT# 

01 DC-’ 

21 0000 


LX I 

H i 0 

01 DF 

39 


DAD 

SP 

01 EO 

22 0000s25 


SHLD 

STKINP# 

01E3 •" 

D5 


PUSH 

D 

01E4-" 

C5 


PUSH 

B 

01E5 •" 

3E20 


MVI 

A,'" 

01E7 •" 

03 0000«29 


■JMP 

GETLN# 

01EA-' 

1A 

DEFLTss 

LDAX . 

D 

01 EB 

FEOD 


CPI 

CR 

01 ED-' 

28CF 


JRZ 

IP7 

01EF -' 

C3 0000 s15 


JMP 

QWHAT# 

01 F 2 -‘ 

Cl 

POP As 

POP 

B 

01 F3 

El 


POP 

H 

01F4-' 

22 0000s14 


SHLD 

LOPVAR# 

OIF?-' 

7C 


MOV 

A,H 

01 F 8 -" 

B5 


ORA 

L 

01 F9 -’ 

2810 


JRZ 

PP1 

01FB"' 

Ei 


POP 

H 

01FC-' 

22 0000s18 


SHLD 

LOPINC# 

0 IFF'' 

El 


POP 

H 

0200 •" 

22 0000s17 


SHLD 

LOPLMT# 

0203 •" 

El 


POP 

H 

0204 -' 

22 0000s19 


SHLD 

LOPLN# 

0207-' 

El 


POP 

H 

0208 -' 

22 0000 : 1 A 


SHLD 

LOPPT# 

020B •- 

C5 

PPls 

PUSH 

B 

020C •" 

C9 


RET 


020D •" 

21 0000:2A 

PUSHAs 

LX I 

H 7 STKL.MT# 

021 . 0 '- 

Cl 


POP 

B 

0211 •" 

A7 


ANA 

A 

0212 '- 

ED7 2 


DSBC 

SP 

0214'- 

D2 0000 s 2B 


JNC 

QSORRY# 

0217'" 

2 A OOOOs14 


LHLD 

LOPVAR# 

021 A 

7C 


MOV 

A 7 H 

021 B •' 

B5 


ORA 

L 

021C" 

2813 


JRZ 

FIJI 

021 E 

2 A OOOOs1A 


LHLD 

LOPPT# 

0221 x 

E5 


PUSH 

H 

0222 - 

2A OOOOs19 


LHLD 

LOPLN# 
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0225 " 

E5 



PUSH 

H 

0226 

2 A 

0000517 


LHLD 

LOPLMT# 

0229 •" 

E5 



PUSH 

H 

022A •" 

2 A 

OOOOs18 


LHLD 

LOPING 

022D 

E5 



PUSH 

H 

022E •" 

2A 

OOOOs14 


LHLD 

LOPVAR# 

0231 

E5 


PLUS 

PUSH 

H 

0232“ 

C5 



PUSH 

B 

0233*“ 

09 



RET 



. END 
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. PREL 

. I DENT GRAPHICS 
.INSERT HVG.LIB 
.INSERT MACRO.LIB 
.INSERT BBEQU.ASM 


OOOO *" 
0000 *“ 

80 

.RELOG 

PIXTBLs .BYTE 

080H 

0001 " 

20 

.BYTE 

020H 

0002 •*' 

08 

.BYTE 

08H 

0003 *“ 

02 

.BYTE 

2H 

0004"' 

OF ^ 

? FUNCTION TO 
’ J&ZZr PI XXX, 
PIXFUN5 5 ) 

RETURN STATE OF ADDRESSED PIXEL 
Y)= 1 IF PIXEL IS 1, 0 IF 0 

TSTC ■' ( •', PI XDUDC RST 

0005 

28 v "--+- —— 'Tbyte 

*•* ( *•* 

0006 

20 

+ . BYTE 

PIXDUD-.-l 

0007 •" 

C5 

+ 1 

PUSH 

B 

0008 *“ 

D7 

RST 

RSTEXP 

0009 ■" 

E5 

PUSH 

H 

000A •" 

CF 

TSTCC 

COMMA,PIXDUD L RST 1 

OOOB •' 

2C 

+ . BYTE 

COMMA 

0000“ 

1A 

+ .BYTE 

PIXDUD-.-l 

GOOD “ 

D7 

+ 3 

RST 

RSTEXP 

000E-' 

UF 

TSTC 

•") " , PI XDUDC RST 1 

OOOF •“ 

29 

+ .BYTE 

•" >"' 

0010 •" 

16 

+ .BYTE 

PIXDUD-.-l 

0011-' 

e i 

+ 3 

POP 

B 

0012"' 

D5 

PUSH 

D ? SAVE PTR 

0013- 

55 

MOV 

D, L 

A A 1 A *°* 

59 

MCt\J 

cr. r- 




0015 

CD 01A9"' 

CALL 

R2A 

0018 

EB 

XCHG 


0019 

FF 

INDEXB 

i 1 [ INTP% £ .IFE .INTP. , ERST 7 3 3 

001 A •" 

5D 

+ . BYTE 92+13 


00 IB"' 

0000"' 

. WORD 

PIXTBL . 

00 ID"' 

1A 

LDAX 

D ? GET BYTE FROM SCREE 

00 IE"' 

A6 

ANA 

M ? MASK OFF NONSENSE 

GO IF"' 

2600 

MV I ' 

H , 0 

0021 "' 

' 6C 

MOV 

L, H 

.0022"" 

m 

POP . 

D 

0023 "’ 

Cl 

POP 

B 

0024"' 

C8 

RZ 


0025 "' 

2 3 

I NX 

H 

0026"' 

C9 

RET 


0027"' 

C.3 0000 « 04 

PXXCttJDs JMP 

QWHAT 



r' :; 'T"'BOX^DRAW ROUT INE 

002A"' 

D7 ■. 

\ BOX DRW! s /RST 

RSTEXP 5 GET X 

002B •" 

jr«j 

'Rush 

H 

002C "' 

CF 

TSTCC 

COMMA,BOXDUD i FIND COMMAC 

002D"' 

2C 

RST 1 

+ „BYTE 

COMMA 

002E"' 

55 

+ .BYTE 

BOXDUD -.-1 



















TDL Z80 
GRAPHI - 


002F x 
0030 •" 
0031" 
0032*" 
0033 *" 

0034*" 
0037 *" 
0038 *" 
0039 *" 
003A *" 

003B *" 
003E •" 
003F *" 
0040 *" 
0041 *" 

0042 
0043 *" 
0044 *" 
0046 
0047' 
0048 •" 
0049”" 
004A 
004B*" 
004C 
004D" 
004E *" 
004F *" 


0050 e " 
0051 *" 
0052 *" 
0054 *" 
0055 *" 
0058" 
0059 *" 
005B 
005D*" 
005E *" 
005F •" 

0060 *" 
0061 
0063" 
0064 *" 
0067*" 
0068 *" 
006A *" 
006C *" 
006D" 
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+ 3 


D7 


RST 

RSTEXP 5 GET Y 


E5 


RUSH 

H 


CF 


TSTCC 

COMMA,BOXDUDC RST 

1 

2 C 

4 

. BYTE 

COMMA 


50 

“h 

.BYTE 

BOXDUD—.—1 



+ ] , 




CD GODS' 


CALL 

EXPRCP ? XS 


F5 


PUSH 

PSW 


CF 


TSTCC 

COMMA,BOXDUDC RST 

1 

2 C 

4* 

. BYTE 

COMMA 


49 

4* 

.BYTE 

BOXDUD-.-1 



+ 1 ! 




CD 00 D3 •" 


CALL 

EXPRCP ; YS 


ppj 


PUSH 

PSW 


CF 


TSTCC 

COMMA,BOXDUDC RST 

1 

2 C 

4 

. BYTE 

COMMA 


42 

4 

. BYTE 

BOXDUD-.-l 



4* ;i 


D7 

RST 

RSTEXP 


D5 

PUSH 

D 


DDE 1 

POP 

X 


FI 

POP 

PSW 

? RESTORE YS 

47 

MOV 

B, A 


FI 

POP 

PSW 

? AND XS 

4F 

MOV 

C, A 


7D 

MOV 

A, L 

5 PRESERVE FLAG 

Ei 

POP 

H 


55 

MOV 

D, L 


El 

POP 

H 


5D 

MOV 

E, L 


6F 

MOV 

L, A 



? NOW WE HAVE: 

; LIMIT CHECK Y 

B=YS, G 

-XS, D=Y, E=X, L 

60 

MOV 

H, B 


25 

DCR 

H 


CB3C 

SRLR 

H 


7A 

MOV 

A, Es 


CD 0087'" 

CALL 

SABS 


84 

ADD 

H 


F.E2C 

CPI 

44 


3023 

JRNC 

BOXNDR 


7A 

MOV 

A, D 


34 

ADD 

H 


57 

MOV 

? AND X 

D, A 


61 

MOV 

H, C 


CB3C 

SRLR 

H 


7B 

MOV 

A, E 


CD 0087" 

L-ALL 

SABS 


84 

ADD 

H 


FES 1 

CPI 

81 


3014 

.JRNC 

BOXNDR 


7B 

MOV 

A, E 


94 

SUB 

H 
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006E •" 



MOV 

E, A 



? DIDDLE WITH FLAG BYTE 

006F 

7D 


MOV 

A 'i L 

0070 *“ 

E603 


AN I 

3 3 MODULO 4 

0072 *“ 

2800 


•JRZ 

BOXNDR ? SKIP DRAW IF ZERO 

0074 *“ 

D602 


SUI 

2 ; ELSE SUBTRACT 2 FOR 

0076 •" 

F5 

OK 

BOXDRis 

' PUSH 

PSW 

0077- - 

CD 01A9‘" 


CALL 

R2A 



; HL = 

ABS ADDR 

ft = :=;ft, b=ys, c=xs 

007A-' 

D30C 


OUT 

MAGIC 

007C- 

FI 


POP 

PSW 

007D •" 

CD 008C-' 


LALL 

BOXPUT 

0030 *“ 

DDES 

BOXNDR: 

PUSH 

X 

0082 *“ 

Di 


POP 

D 

0033 *“ 

F7 


RST 

RSTFIN 

0084 ■" 

C3 0000504 

B0XDUD5 

JMP 

QWHAT# 

0087 *** 

A7 

SABS: 

ANA 

A 

0083 *“ 

FO 


RP 


0039*“ 

ED44 


NEG 


008B •" 

09 


RET 




L>80BROUtlNE TO 

DRAW A BOX ON SCREEN 

008C *“ 

SF 

^BOXPUTs 

s/ MOV 

Ei ft 

008D*“ • 

79 A 

V.: 

MOV 

A, C 5 D = X / 4 

OOSE •" 

OF 


RRC 


008F*“ 

OF 


RR'C 


0090 *“ 

E63F 


ANI 

3FH 

0092 •" 

3C 


I NR 

A 

0093 

57 


MOV 

D, A 



? PAINT 

FULL BYTE STRIPES 

0094 •" 

15 

MPT is 

DCR 

D 

0095 •” 

2807 


JRZ 

MPT2 

0097' 

3EAA 


MV I 

A, 1010101OB 

0099 

CD OOBI' 


CALL 

STRIPE 

009C •" 

18F6 


JMPR 

MPT 1 

009E-' 

79 

MPT2S 

MOV 

A* C, 

009F-' 

E603 


ANI 

3 ■ 

GOA 1 •" 

3C 


INR 

’A 

00 A2"' 

4F 


MOV 

Ci A 

00A3- - 

AF 


XRA 

A ' 

00A4-" 

OD 

MPT3: 

DCR 

c- 

00 A5 

2806 


JRZ 

MPT4 

00A7 

OF 


RRC 


O0A8 •" 

OF 


RRC 


00 A9 

F680 


OR I 

1OOOOOOOB 

OOAB 

18F7 


JMPR 

MPT3 

00 AD"' 

CD OOBi' 

MPT 4: 

CALL 

STRIPE 

OOBO 

AF 


XRA 

A 



•1 FALL 

INTO ..„ 




§ SUBROUTINE TO 

PAINT A STRIPE 

OOBi ■" 

E5 

STRIPE: 

PUSH 

H 

00B2 

C5 


PUSH 

B 

00B3 

32 OFFF 


STA 

URINAL 

00B6 

3ft 4FFF 


LDA 

URINAL+4000H 


00B9 4F MOV C,A 
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OOBA •" 

7B 

STRPls MOV 

A, E 

OOBB •" 

FE01 

CPI 

1 

OOBD •'* 

2002 

JRNZ 

STRP2 

OOBF •" 

7E 

MOV 

A, M 

OOCO •" 

A 9 

XRA 

c 

ooc i -■ 

AE 

STRP2S XRA 

M 

OOC 2 *** 

A1 

ANA 

e 

OOC 3 *’* 

AE 

XRA 

M 

00C4 

77 

MOV 

M, A 

00C5 •*’ 

7D 

MOV 

A, L 

00C6 

0628 

ADI 

BYTEPL 

00C8 *" 

6 F 

MOV 

A 

OOC9 •“ 

7C * 

MOV 

A,H 

OOC A 

CEOO 

ACI 

0 

oocc *■* 

67 

MOV 

H, A 

OOCD" 

1OEB 

DJNZ 

STRP1 

OOCF 

CI 

POP 

B 

OODO 

Ei 

POP 

H 

OOD 1 

2 3 

INX 

H 

00D2" 

C9 

RET 




? ROUTINE TO GET EXPRESSION, MAKING 



OSITIVE 

? AND NONZERO 


GODS'- 

D7 

EXPRCP* RSI 

RSTEXP 

00D4 •- 

7C 

MOV 

A? H 

00D5'" 

B7 

ORA- 

A 

00D6 •' 

2032 

JRNZ 

LINED# 

00D8 •' 

B5 

ORA 

t 

CODS'- 

282F 

{ 1 FI 7 

LINED# 

OODB •- 

C9 

RET 




? LINE DRAWER 


OODC '- 

D7 

LINEDRs* 

RST RSTEXP 

OODD 

7D 

MOV 

A 7 L 

00 DE •- 

F5 

PUSH 

PSW 

00DF-" 

CF 

TSTCC 

COMMA*LINED4C RST 

OOEO •' 

2C 

+■ .BYTE 

COMMA 

OOE1 ■" 

28 

+ «BYTE 

+ 3 

LI.NED4-. -i 

00 El 2 •■- 

D7 

RSI 

RSTEXP 

00E3 •- 

7D 

MOV 

At L 

00E4 •' 

F5 

PUSH 

PSW. 

GOES'" 

CF 

LINEDis TSTCC 

COMMAt LINED4C RST 

00 E 6 •" 

2C 

+ .BYTE 

COMMA 

00E7 

22 

+ »BYTE 

+ 3 

LINED4-.-I 

GOES •- 

D7 

RST 

RSTEXP 

00E9 

44 

MOV 

B,H 

OOEA •" 

4D 

MOV 

U ? L, 

OOEB-" 

D5 

PUSH 

D 

OOEC ■' 

DDE 1 

POP 

X 

OOEE •' 

ED5B 

0000S05 LDED 

OLDXY# 

00F2-- 

FI 

POP 

PSW 

OOFS 

67 

MOV 

Ht A 

OOF 4 •- 

FI 

POP 

PSW 

OOFS'" 

6F 

MOV 

Lt A 
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OOF 6 * 

22 0000s05 

SHLD 

OLDXY# ? SET NEW LAST PLACE 



? DIDDLE WITH 

FLAG BYTE 

OOF 9 *“ 

79 

MOV 

A? C 

OOF-A " 

E603 

ANI 

o 

OOFC 

2808 

■JRZ 

LINEDS 

OOFE *“ 

D602 

SUI 

o 

01 oo 

32 0000 s 06 

LINED2S STA 

PIXVAL# ? SET PIXVAL 

0 103 •“ 

CD 01 OB' 

CALL 

DVECT 

0106*“ 

DDES 

LINEDS s PUSH 

X 

0108' 

D1 

POP 

D 

0109 •" 

F7 

RST 

RSTFIN 

010 A 

C3 0000*07 

LINED4S JMP 

QHOW# 



? LARRY LIVERMORE'S VECTOR DRAWING ALGORITHM 



5 H=Y 1 ■> L=X 1 v 

D=Y2, E=X2 

01OD 

05 

DVECTs PUSH 

D 

0 i OE *“ 

45 

MOV 

B,L 

010F*“ 

4B 

MOV 

Ci E 

0110 •" 

CD 0177' 

CALL 

CDELTA 

0113' 

Sft 

MOV 

E. B 

0114"' 

. 5 9 

MOV 

L? C 

0115' 

44 

MOV 

B,H 

0116' 

4ft 

MOV 

C» D 

0117' 

CD 0177' : 

CALL 

CDELTA 

Oil A' 

61 

MOV 

HiC 

01 IB' 

•' 50 

MOV 

D» B 



1 WE NOW HAVE* 

H*SGNCDY)., L=SGN(DX ) 



? D=ABS(DY )i E 

>ANS(DX) 

011C' 

22 0000s08 

SHLD 

INCRO# 



! DECIDE WHICH DELTA IS LARGER 



1 CALL BIGGER 

MX, SMALLER MN 

01 IF' 

OEOO 

MV I 

C»0- 

0121 ' 

7A 

MOV 

A rt D 

0122 ' 

BB 

CMP . 

E 

0123' 

3803 

JRC 

; VECT1 

0125' 

IC*0 
w O 

MOV 

D, E 

0126' 

5F 

MOV 

E» A 

0127' 

oc 

I NR 

c - 

0128' 

7fi 

VECT 1 : MOV 

A,D 5 MX TO A 

0129' 

CB3F 

SRLR 

A . 

012B ' 

47 

MOV 

B,A 

01 2C ' 

EB 

XCHG 


012D' 

22 0000*09 

SHLD 

MNMX# 

0130' 

D 1 

■POP- ■ 

D 

0131 ' 

7D 

MOV 

.ArL. 

0132' 

3C 

INR 

A ? MAKE SURE LAST PIXEL 



RITTEN 

5 THE INFAMOUS 

PIXEL PAINTING LOOP 

0133' 

F5 

VECT2S PUSH 

PSW 

0134' 

CD 01.99' 

CALL 

R2ACLP 

0137' 

3819 

JRC 

VECT2A 

0139 ' 

C5 

PUSH 

B 

013 A ' 

F5 

PUSH 

H . 

013B' 

4F 

MOV 


013C' 

0600 

MV I 

B,0 

013E' 

21 0000' 

LX I 

HrPIXTBL 
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0141" 

09 

DAD 

B 

0142' 

46 

MOV 

B,M 

0143' 

El 

POP 

H 

0144“ 

3A 0000:06 

LDA 

PIXVAL# 

0147“' 

FE01 

CPI 

1 

0149-* 

2002 

■JRNZ 

VECT9 

014B'“ 

7E 

MOV 

A,M 

014C-“ 

AS 

XRA 

B 

014D-“ 

AE 

VECT9: XRA 

M 

014E“' 

AO 

ANA 

B 

014F •“ 

AE 

XRA 

M 

0150“' 

77 

MOV 

M» A 

0151' 

Cl 

POP 

B 



? 1NCREMENT COORDINATES 

0152“' 

2A 0000:09 

VECT2A: LHL.D 

MNMX# 

0155**' 

yp t 

MOV 

Ai B 

0156*" 

84 

ADD 

H 

0157" 

BD 

CMP 

L 

0158*" 

38 OD 

JRC 

VECT4 

015 A"' 

95 

SUB 

L 

015B •“ 

47 

MOV 

B? A 

015C *" 

2A 0000:08 

L.HLD 

INCRO# 

015F *" 

7A 

MOV 

A? D 

0160"' 

84 

ADD 

H 

0161' 


MOV 

D, A 

0162“' 

7B 

VECT3: MOV 

A,E 

0163“' 


ADD , 

L 

0164“ 

5F 

MOV 

Ei A 

0165"' 

1 SOB 

•JMPR 

VECT5 

0167' 

47 

VECT4: MOV 

B, A 

0168' 

2A 0000:08 

LHLD 

INCRO* 

016B' 

79 

MOV 

A ‘i C 

016C ' 

OF 

RRC 


016D' 

30F3 

JRNC 

VECT3 

016F' 

7A 

MOV 

A,D 

0170' 

84 

ADD 

H 

0171' 

57 

MOV 

D,A 



5 END OF LOOP 


0172' 

FI 

VECT5: POP 

PSW 

0173' 

3D 

DOR 

ft 

0174' 

20BD 

JRNZ 

VECT2 

0176“ 

C9 

RET 




5 SUBROUTINE TO 

COMPUTE 



TWO COORDINATES 


0177' 

E5 

CDELTAs PUSH 

H 

0178' 

D5 

PUSH 

D 

0179' 

69 

MOV 

L, C 

017A “ 

CD 0000 s OA 

CALL 

SGNEXT# 

017D' 

EB 

XCHG 


017E ' 

68 

MOV 

Li B 

017F ' 

CD 0000:OA 

CALL 

SGNEXT# 

0182 ' 

AF 

XRA 

A 

0183 ' 

ED52 

DSBC 

D 



5 COMPUTE SON(DELTA) AND 

0185“ 

B4 

ORA 

H 


DELTA AND INCREMENT FOR 


ABS( DELTA) 
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0.1.86' 

2807 

•JRZ 

CDELT1 

CO 

CO 

O 

4F 

MOV 

Ci A 

0189 

7D 

MOV 

A 7 L 

018 A "' 

ED44 

NEG 


018C ' 

47 

MOV 

B, A 

018D 

1807 

•JMPR 

CDELT3 

01.8F" 

B5 

CDEL.T1 " ORA 

L “ 

0190' 

2802 

■JRZ 

CDELT2 

0192-' 

3E01 

MV I 

A 7 1 

0194" 

45 

CDELT2S MOV 

B,L 

0195" 

4F 

MOV 

C : 7 A 

0.196 •" 

D1 

CDELT3: POP 

D 

0197' 

El 

POP 

H 

CO 

Q- 

C9 

RET 




? RELATIVE TO 

ABSOLUTE COr 

0 ;| 99 ••• 

7B 

R2ACLPS MOV 

A 7 E 

019 A 

FE50 

CPI 

80 

019C ' 

3803 

JRC 

. . OKY 

019E-" 

FEBO 

CPI 

OBOH ? 

01 AO' 

D 8 

RC 


01 A 1 "' 

7A 

..OKY s MOV 

A,D 

01 A 2 •" 

FE2C 

CPI 

44 

01A4 ' 

3803 

•JRC 

R2A 

01A6' 

FED4 

CPI 

0D4H 

01A8 •' 

D8 

RC 




1 u ss m 

! RELATIVE TO 

ABSOLUTE COf 

01A9 ' 

D5 

R2A:s PUSH 

D 

01A A ' 

7A 

MOV 

A,B 

01AB ' 

2F 

CMft 


01 AC' 

C62C 

ADI 

44 

01AE ' 


MOV 

D, A 

01AF ' 

7B 

MOV 

A,E 

01 BO ' 

C650 

ADI' 

80 

01 B2 ' 

5F 

MOV 

E, A 

01B3' 

AF 

XRA 

A 

01B4' 

FF 

RELAB 1E INTP7.E » IFE 

01B5 ' 

Si A 

+.BYTE 58+03 


01B6' 

EB 

XCHG 


01B7 ' 

D1 

POP 

D 

01B8' 

C9 

RET 




? COMMAND TO 

SLEAR SCREEN 

01B9' 


CLRSCR 5s 


01B9' 

21 4000 

LX I 

H , 4000H 

01BC ' 

7E 

CLRLP: MOV 

A, M 

01BD ' 

E655 

AN I 

01010101B 

01 BF' 

77 

MOV 

M j A 

01 CO' 

23 

INX 

H 

01 Cl ' 

7C 

MOV 

A 7 H 

0 1C2 ' 

FE4E 

CPI 

4EH 

0 1 C4 " 

20F6 

JRNZ 

CLRLP 



? RESET VDM GOODIES 

01 C 6 ' 

D5 

PUSH 

D 

01 C7 ' 

FF 

MOVE 

1CINTP34C.: 

0 1 C8 ' 

5F 

+ » BYTE 94+13 



POS CASE 0? 


• 8 - 8 * 


- 8.0 


INTP. , ERST 71.1 
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1 


01C9 •" 

0000s OB 

. WORD 

VDMX# 

01 OB' 

0006 

«WORD 

6 

OICD" 

0006 s OC 

. WORD 

INIDEV#+6 

01CF-- 

D1 

POP 

D 

01 DO' - 

F7 

RST 

RSTFIN 


.END 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
CHAR 


. PREL 

„IDENT CHAR 
.INSERT HVG.LIB 
.INSERT MACRO.LIB 
.INSERT BBEQU.ASM 

0000-' . RELOC 

5 TABLE GIVING ASCII CHARS FOR TOKENS 


oooo 


TOKTXTs 



0000 •** 

4C4953 

.ASCII 

-'Ll S'" 


0003 *** 

D4 

. BYTE 

'T'+SOH 


0004 •" 

434C4541 

.ASCII 

-'CLEA- 


0008 6 ‘‘ 

D2 

.BYTE 

-R-+80H 


0009 •" 

w .&>» a oJ 

.ASCII 

-RU" 


OOOB 

CE 

.BYTE 



OOOC 

4E4558 

.ASCII 

'NEX •' 


OOOF 

D4 

. BYTE 

-' T -' +80H 


0010 '' 

4C494E 

.ASCII 

•"LIN"' 


0013 ■" 

C5 

.BYTE 

' E +80H 


0014"" 

49 

. BYTE 

•-1 •- 


0015-' 

C 6 

.BYTE 

^F y + 8 OH 


0016 

474F54 

.ASCII 

-' GOT"' 


0019 

CF 

. BYTE 

•' 0 •" +80H 


001 A-' 

474F5355 

.ASCII 

-' GOSU •" 


001 E 

C2 

. BYTE 

-' B •" +80H 


00 IF-' 

5245545552 

.ASCII 

"'RETUR' 


0024-' 

CE 

. BYTE 

-'N-'+SOH 


0025 x 

424F 

st A 8 L« 11 

"BO"' 


0027 •' 

D 8 

.BYTE 

•" X •" +80H 


0028 -‘ 

464F 

.ASCII 

,‘FQK 


002 A -' 

B2 

. BYTE 

R x +80H 


002B 

494E5055 

.ASCII 

INPU"' 


002F •- 

D4 

. BYTE 

•" T •" +80H 


0030 •" 

5052494E 

.ASCII 

'PRIN' 


0034-' 

D4 

.BYTE 

•"T-'+SOH 


0035 

535445 

.ASCII 

•"STE-' 


0038 •" 

DO 

. BYTE 

-'P-'+SOH 


0039 •- 

524E 

.ASCII 

RN 


003B 

C4 

.BYTE 

*" D +80H 


003C -' 

54 

. BYTE 

T •" 


003D 

CF ■ 

—. .BYTE 

•" 0 ' +80H __ 







? FROM DEVICE: 

VARIABLES 

!/ 

003E 


LDVDMCs PUSH 

PSW 

A %X 

003F "' 

3ft 0000s04 

LDA 

VDMY# 

xxxx 

0042 •" 

' ■^ET 

CMA 


vAJ X 

0043 "' 

C629 

ADI 

41 


0045"' 

FE51 

CPI 

81 ; 

OUT OF RANGE? 

0047 "' 

3801 

JRC 

LDVDMl ? 

NO 

0049"' 

AF 

1 XRA 

A 


004A 

67 

1 LDVDMls MOV 

H, A 


004B"' 

3A 0000s05 

1 LDA 

VDMX# ; 

DIDDLE WITH X 

004E "' 

C64D 

\ ADI 

77 


0050 " 

FE9D 

\ CPI 

157 


0052 "' 

3801 

\ .JRC 

LDVDM2 


0054"' 

AF 

' XRA 

A 
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0055*” 

6F 

/ LDVDM2: 

MOV 

L, 

A 

0056 *” 

FI 



POP 

PS 

W 

0057“' 

C9 



RET 





I ? 

8UBRG 

HJTINE TO 8T0REE 



I 

CE VARIABLES 



0058 *” 

E5 

8 

TVDMCs 

PUSH 

H 


0059 *” 

7C 



MOV 

A, 

H 

005A*” 

D629 



SUI 

41 


0050 *” 

2F 

i 


CMA 



005D *” 

6F 



MOV 

L, 

A ■ 

005E“* 

CD 0000:06 

\ 

* 

CALL 

SG 

NEX' 


007C 
007D 
007E 
007F •" 


0061 •" 


0000!04 

\ SHLD 

VDMY# 

0064 •- 

Ei 


\ POP 

H 

0065“* 

7D 


\ MOV 

At L 

0066 *” 

D64D 

\ 8 U 1 

77 

0068-' 

6 F 


\ MOV 

L, A 

0069 

CD 

0000:06 

V CALL 

SGNEXT# 

006C 

22 

0000s05 

X \^SHLD 

VDMX# 

006F *” 

09 







? DEVICE VARIABLE TO OUTPUT 

0070-' 

CF 


PUTCD:: TSTC 

•" =■> PUTCD2 L 

0071 •- 

3D 


+ .BYTE 


0072-' 

04 


+ . BYTE 

+ 1 

PUTCD2-.-1 

0073'" 

07 


• RST 

RSTEXP 

0074 -' 

7D 


MOV 

A» L 

0075 - 

DF 


RST 

RSTOCH 

0076 -' 

F7 


RST 

RSTFIN 

0077" 

C3 

0000s07 

PUTCD2! JMP 

QWHAT # 

007A •" 

3E0D 

CRLFsf ! MV I ' 

A t CR 




RST 


SUBROUTINE TO SIMULATE A CHARACTER DISPLAY IN 


FRAME 


OFFER. 


SIMULATED 


E5 

D5 

C5 


' 5 THE 
S -' 

5 DIMENSION? 

R GRAPHICS 
? IN A 6 X 8 FR? 

ET THli 

I THE 64 UPPER CASE 
ED BY THIS 

? HANDLER. THE ASCII C( 

E RETURN AND 
? RUBGUT ARE ALSO PROCE 
• CAUSES 

5 THE DISPLAY TO G 
LAY, WITH 
; SCROLL UP 
SOR TO MG 

5 BACKWARD ONE CHARACTER POSITION. 

? CHAPITER TO DISPLAY IS IN A. THE ALTERNATE R 
EG,rS®ER SET 

i 
H 


iCTE 
JSED TO G 
"ERS ARE DISPLAY 
CHARACTERS. CARR I AG 
HANDLER. CR 
NEXT ^0P THE: DI SP 
[HE CUR 


%JlM USED. 

W 


DUTCH! 


PUSH 

PUSH 

PUSH 

PUSH 


D 

B 

P 
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0080 
0081 •" 
0084 •" 
0085" 
0088 
0089 •" 
008A 
008B 
008C 


008D" 
008E 
0091 •" 
0093 
0094 


0096 •" 
0098 •" 
009A 
009C •" 
009E •" 
00 AO 
00A2'" 
00A4 " 
00A6 •" 
00 AS" 


00 A A"' 


00D6 

OOD7 


57 

CD 

7A 

CD 

FI 

Cl 

Di 

El 

C9 


0000 s 08 


VDMCAL; 


0096 


6F 

3A 0000 s 09 
FE06 / 

7D 

28E6 


? EVEN 
VDMTOKs 


MOV 
CALL 
MOV 
CALL 
POP 
POP 
POP 
POP 
RET 

STRANGER GUYS ENTER HERE 
Li A 

TAPEST# 


El a 

TOUTCK# 
A,D 
VDM 
PSW • 

B 

D 

H 


MOV 

LDA 

CPI 


GUYS 


FE0D 


/ 

2!-r?F 


FE1F 

280F 

3804 

FE78 

3802 

3E3F 


r fc6 ; 


304F 


CD 00005 Oil 




FILTH 

FILT2 


PLAY 


■ oblx 

LillMACP 


JRZ_. 

urm.i 

JRC 

FILTl' 

CPI 

78H '■ 

JRC 

FILT2 * -■ 

'MV I 

ft- 1 f 4 ° 

■ CPI 

68 H \ “ 

JRIMC 

; TQKEP 

NOTE 

FOR THIS Ci 



TOKEN TO PRINT? 
JUMP IF SO 


PNOTE# 




/ r roR=5E 



3SH 

cursor 

00 AD •" 

CD 01QE" 

f VDM is. 

CALL 

UCURSE 



OOB p 

CD 003E-" 


CALL 

LDVDMC 



000.3 •** 

FE1F I 

1 

CPI 

RUBOUT 

f 

WAS THAT RUBOUT? 

00B5 

20 IF I 

1 

JRNZ 

VDM3 

m 

JUMP IF NOT 


I 

I ? RUBOUT 

ENTERED - SO 

RUB 

OUT 

OOB 7 •" 

7D I 


MOV 

A) L 

1 

GET X 

OuB’w ** 

A7 I 


ANA 

ft . 

■ 68 
? " 

IS X = 0? 

00B9-" 

2805 


JRZ 

VDM2 


YES - JUMP 

OOBB 

D606 


SUI 

6 . 

a 

' » . 

NO - BACKUP X 

OOBD 

6 F 

/ 

MOV 

.Lift 



00 BE •" 

1831 


JMPR 

VDMDNl 


AND JOIN STORE BACK 

OOCO •" 

2E96 

VDM2: 

MV! 

Li 150 



00C2 •" 

7C 


MOV 

A,H 



00C3;" 

D608 

• - .. 

SUI 

8 



00C5 •" 

67 


MOV 

H, A 



00C6‘" 

1829 


JMPR 

VDMDNl 




NEW LINE CHAR 


DID WE JUST WRAP AROUND 


00 C 8 *“ 

3A 0000sDB 

VDMOCRS LDA 

VDMNLF# 

K 

7 

CHEC 

:K OLD GLORY 

OOCB •" 

A 7 1 

ANA 

A 




00CC**' 

2026 V 

JRNZ 

VDMDON 

: n 

YES 

~ SKIP DIDDLING 

OOCE 

CD 010E" y 

CALL 

UCURSE 

7 

NO ~ 

• UNWRITE CURSOR 

OOD 1 •" 

CD 0112". 1 

CALL 

NEWL.IN 

K 

GO TO NEXT LINE 

00D4 

181 E t 

JMPR 

VDMDON 

; it ' 
1 

AND 

QUIT 


5 NORMAL 
VDM3s 


. CHARACTER ENTERED - DISPLAY IT 
MOV D,H ? COORDINATES TO DE 

E,L 


MOV 


54 
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R 


00D8 " 
OODA- 


00 DC 


00F5' 


ouo- 

0112 - 


0115- 

0117- 

0118- 

OUA- 


01 ic- 

01 IF- 
O 1.■>:. 
0123 • 
0125- 
0126 - 
0127- 
0128- 


F680 
OE18 


DD21 0000SOQ 


OR I 
MV I 

HAR 

LX I 

E CHAR FONT 


80H ? ALT FONT THE CHAR 

CL 01100OB ? OR WRITE THE C 


X, AL.TFON# 


USING ALTERNAT 


OOEO •" 

FF 

l 

| 

CHRDIS 

; IT 

1 C INTP7.II. IFE .1NTP. , 1 .RS 



73 3 





00E1 •- 


+ » BYTE 

50+03 




00E2 

7D 


MOV 

A,L 

U 

V 

ADVANCE X POINTER 

00E3 

0606 


ADI 

6 



00E5 •" 

6F 

f 

MOV 

L, A 



00E6 •" 

FE9C i 

f 

CPI 

156 

7 

END OF LINE? 

00E8 •" 

2007 | 


.JRNZ 

VDMDNl 

Sfi 

7 

NO - JUMP 

OOE A •" 

CD 0112- f 


CALL 

NEWLIN 

u 

7 

YES - NEW 1 LINE 

OOED-" 

3E01 f 

D FLAG 

MV I 

A, 1 

u 

7 

AND SET NEW LINE FORCI 

OOEF 

1804 | 


JMPR 

VDMDN2 



OOF 1 •" 

CD 0058 •" ■ 1 

VDMDNl: 

CALL 

STVDMC 



OOF 4 •" 

AF I 

VDMDON: 

XRA 

A 

88 

\t 

CLEAR NEW LINE FORCED 


32 0000:01 


FLAG 

VDMDN2S STA 


VDMNLF# 


UUr o 


5 ROUTINE TO 

DISPLAY A 

00F9 •*’ 

CD 0164“” 

TOKEPs CALL 

TOKEPT 

OOFC-- 

' 7E ! 

TOKEPls MOV 

A,M 

OOFD •" 

E67F 

AMI 

7FH 

OOFF 

E5 

PUSH 

H 

0100- 

CD 008D' 

CALL 

VDMTOK 

0103-' 

El 

POP 

H 

0.104"' 

7E 

| ■ MOV 

A? M 

0105-' 

23 

| INX 

T H 

0106 -' 

07 

RLC 


0107 

30 F 3 

1 JRNC 

TOKEF'l 

0109 ■" 

3E20 

1 T0KEP2S MVI 

A * -' •- 

01 OB - " 

C3 OOSD x 

1 XJMP 

VDMTOK 





01 OE •" 

OEOO 

J UCUR9ES A\J I 

£■•> 0 : " 


PUT SPACE AFTER TOKEN 
AND RETURN 
JCliRSi 


183E 

CD OVSE¬ 


NS 


2E00 

7C 

FE50 

202D 


JMPR CURS 

rUBSfOUTlNE TO DISPLAY NEW LINE 
[N“ CALL . LD 
SCROLL UP NEEDED? 

MVI jLiQ 
MOV /ftiH 
CPI / 80 

JRNZ/ NEWL1 
SCROLL UP'‘IS NEEDED 


CD 0058*” | 

CALL 

STVDMC 

21 4DC0 | 

LX I 

H v 4DC0H 

7E 1 SCRL9 s 

MOV 

A,M 

E655 / 

ANI 

01010101B 

77 / 

MOV 

M i A 

23 |t— ,/ 

INX 

H 

7D 

4' I 

FE20 t / 

MOV 

A ■> L / 

CPI 

20 H 

2OF6 •/' 

■JRNZ 

SCRLS^ 



JUMP IF 


T NEEDED 


&■■■ 
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„ PREL 
.IDENT 

EZKP 



.INSERT 

HVG.LIB 



„INSERT 

MACRO.LIB 



.INSERT 

MUSIC.LIB 



.INSERT 

BBEQU.ASM 

OOOO*" 


«RELOC 




5 KB - FUNCTION 
YBOARD 

TO RETURN NEXT CHARACTER FROM KE 

0000" 

C5 

GETKBss PUSH 

B 

0001 

D5 

PUSH 

D 

0002 

CD OOOB-' 

CALL 

CHKIO 

0005 •" 

Di 

POP 

D 

0006 

Cl 

POP 

B 

0007 

6F 

MOV 

L. 7 A 

0008 *" 

2600 

MV I 

H, 0 

000A *“ 

09 

RET 




5 NEW KEYBOARD HANDLER 
? WITH SHIFT KEY ROLLOVER 

OOOB 

3A 0000: 04 

CHKIOss LDA 

TAPEST# ? TAPE INPUT WANTED? 

OOOE '* 

3D 

DCR 

A 

OOOF x 

201A 

JRNZ 

CHKIOQ ; NO - SKIP IT THEN 



? YES - CHECK FOR ABORT KEYSTROKE 

0011 •" 

CD OOCC •' 

UALL 

KEYSCN 

0014 •" 

C2 0000s 05 

JNZ 

INITO# 



? GET CHARACTER 

FROM THE BUFFER 

0017-' 

2A'0000 s06 

LHLD 

CONPRO# 

001 A"' 

7C 

MOV 

A,H 

001B 

BD 

CMP 

L 5 ARE POINTERS EQUAL? 

001 c •" 

■ 28ED- 

JRZ 

CHKIO ? YEP - LOOP WAITING 

00 IE/" 

21 0000s07 

LKI 

Hf TAPBUF# 

0021 •- 

6F 

MOV 

L» A ? MAKE OFFICIAL POINTER 

0022 

4E 

MOV 

C? M 

0023 •" 

CD 0000 s 08 

CALL ' 

BUMPTR# 

0026 

32 0000s09 

STA 

CONPTR# 5 UPDATE MY POINTER 

0029 

79 

MOV ■ 

A? C 1 PASS BACK THE CHARACTE 

002A 

09 

r\ 

RET 


002B-" 

CD OOCC-' 

CHKIOQs CALL 

KEYSCN f MAKE SURE PREVIOUS KEY 



RELEASED 


002E 

20FB 

•JRNZ 

CHKIOQ 



; AWAIT DEBOUNCE TIMER COUNTDOWN 

0030 

21 0000sOA 

CHKIOQs LXI 

H.KEYTMR# 

0033 

3606 

MV I 

Ms 6 5 SET IT 

0035 •" 

7E 

LOOPERs MOV 

AsM 

0036 •" 

A 7 

ANA 

A 

0037" 

20FC 

JRNZ 

LOOPER 



? SAVE BACKGROUND COLOR 

0039 •" 

3A OOOOsOB 

LDA 

DEVCLO# 

003C "' 

F5 

PUSH 

PSW 



? ASSUME FIRST 

LEVEL KEYCODE 

003D •" 

21 00F6-" 

LX I 

H, FIRSTL 

0040 

E5 

GETK15 PUSH 

H 5 SAVE TABLE PTR 



? SCAN ONLY FOR 

SHIFT KEYS 

0041 

21 0149-' 

LX I 

HsKTBL4 











PAGE 
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0044"' 

11 FFEB 


LX I 

D ■? jd 1 ? 

SIZE OF LOOKUP TABL 

0047 •“ 

01 0414 

c. • 

LX I 

B,0414H 


004A 

ED78 

GETK2S 

INP 

A 5 

INPUT FROM PORT 

004C *“ 

E620 


AN I 

20H ; 

SHIFT KEY DOWN? 

004E *** 

2007 


•JRNZ 

GETK3 ? 

JUMP IF YEP 

0050 •" 

19 


DAD 

D ; 

ELSE TO NEXT TABLE 

0051 

oc 


I NR 

c * 

AND PORT 

0052 

10F6 


DJNZ 

GETK2 




S NO SHIFT KEY 

IS DOWN - 

USE WHATEVER WE HAD BEF 



ORE 




0054 •*’ 

El 


POP 

H 


0055 

180F 


JMPR 

GETK5 




3 A SHIFT KEY I 

S DOWN - S 

AME OLD STORY? 

0057 *“ 

D1 

GETK3S 

POP 

D 5 

DISCARD OLD BELIEFS 

0058 *** 

3A 00002 OB 

R 

LDA 

DEVCLO# ; 

IS CURRENT SCREEN COLO 

005B **’ 

BE 

s \ 

CMP 

M 

THE SAME AS WHAT WE WO 



ULD SET 




005C *“ 

2807 


■JRZ 

GETK4 ? 

YEP - DON""!" BOTHER WIT 



H FEEDBACK 



005E *“ 

7E 


MOV 

A,M ; 

ELSE SET SMEW COLOR 

005F *“ 

32 0000s OB 


STA 

DEVCLO# 


0062 " 

CD 0099 •" 


CALL 

WCLICK 5 

AND GO CLICK 

0065 

23' 

GETK4s 

INX 

H ? 

SKIP COLOR BYTE 



3 NOW S 

CAN FOR 

ANY "NORMAL" KEY DEPRESSION 

0066 

CD OOCC •" 

GETK5: 

CALL 

KEYSCM 


0069 *“ 

28D5 


JRZ 

GETK1 ? 

JUMP IF NO KEY DOWN 



5 WE GOT ONE - 

CONVERT TO 

ASCII 

006B 

3D 


DCR 

A ? 

BY TABLE LOOKUP 

006C y 

4F 


MOV 

. L* ? ft 


006D *“ 

0600 


MVI 

B, 0 


006F “ 

09 


BAD 

B 


0070 

FI 


POP 

PSW 3 

RESTORE COLOR 

0071*7 

32 0000 s OB 


STA 

DEVCLO# 


0074 *“ 

7E 


MOV 

A,M 3 

GET CODE 

0075*“ 

A7 


ANA 

ft 1 

A HLT PERCHANCE? 

0076 *“ 

234E 


JRZ 

INIJMP 5 

YEP - RESET 

0078 *“ 

FEO1 


CPI 

1 T 

AN ERROR? 

007ft ' 

CA OOOB •" 


JZ 

CHKIO 5 

YEP ~ GO DOIT AGAIN 



5 GOOD 

KEY. . . 



007D *“ 

F5 

CHKI02S 

PUSH 

PSW 3 

NEED WE GO "CLICK"? 

007E *“ 

FE67 


CPI 

NLLN 3 

REJECT TOKENS 

0080 *“ 

300A 


JRNC 

NOCLK 


0082 *“ 

pp 


INDEXB 

1 L INTP7.C. 

IFE .INTP.,ERST 733 

0083 *“ 

5D 

+ .BYTE 

92+1 1 



0084 *“ 

FFF3s OC 


. WORD 

NOTES#-CR 


0086 *“ 

3C 


I NR 

A 


0087 *“ 

2003 


JRNZ 

NOCLK 


0089 *“ 

CD 0099" 


CALL 

WCLICK 


008C *“ 

FI 

N0CL.KS 

POP 

PSW 


008D *“ 

FE67 


CPI 

NLLN 


008F *“ 

CO 


RNZ 



0090 *“ 

21 0005 


LX I 

H i 5 


0093 *“ 

22 0000sOD 


SHLD 

NLLNCT# 3 

SET FLAG AND ZERO 8UPR 
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ESS 




0096 

3E0D 

CHAR 

MV I 


A ? L- R ? 

0098 •" 

09 


RET 



0099 *’* 

3A 0000sOE 

WCLICKs 

LDA 


NEWTMR# 

0090 

A7 


ANA 


A 

009D •" 

20F A 


JRNZ 


WCLICK 

009F " 

3EFD 


MV I 


A , GO 

OOA .1. 

32 0000's OF 


STA 


MUZTON# 

00A4-" 

3A 0000s10 


LDA 


DEVTEM# S 

00 A7 •- 

A7 


ANA 


A 

00A8 •" 

08 


RZ 



00A9 

3E01 


MV I 


A, 1 

00 AB •" 

32 0000 s OE 


STA 


NEWTMR# 

00 A E **’ 

09 

K 

RET 





•} 

? SUBROUTINE 

TO 

CHECK FOR 



I NO 




OOAF 

05 

WHATSUs 

« 


PUSH B 

OOBO •" 

D5 


PUSH 


D 

GOB 1 -■ 

CD OOCC' 


CALL 


KEYSCN 5 

00B4 

D602 


^ SUI 


O X 

7 

00B6 

2807 


JRZ 


FRZKEY 

00B8 ' 

3D 


DCR 


A 

00B9 

280B 


JRZ 


INIJMP 

OOBB" 

FEOl 

ST KEY 

CPI 


1 ; 

OOBD 

180A 


JMPR 


FRZGBK ? 

OOBF-" 

CD OOCC’" 

FRZKEYs 

CALL 


KEYSCN ! 



0 REL 




0002 •" 

28FB 


JRZ 


FRZKEY 

0004 

FE03 


CPI 


3 1 

0006 

CA 0000s11 

INIJMP: 

JZ 


INI T# 

0009-■ 

D1 . 

FRZGBKs 

POP 


D 

OOCA •" 

Cl. 


POP 


B 

OOCB" 

C9 


RET 





? SUBROUTINE 

TO 

SCAN TINY 

OOCC •" 

01 0414 

KEYSCNs 

LX I 


B j 0414H ; 

OOCF 

11 0000S12 

MEMORY 

LX I 


D»KEYTRK# 

00D2 •" 

AF 


XRA 


A 

00D3 

F'F 


RANGED C I NTP7.C . IFE 

00D4 •" 

76 

+.BYTE 

118+03 


00D5 -■ 

ED78 

KYSCNl s 

INP 


A 5 

00D7 •- 

E61F 


AN I 


1FH ? 

00D9 -■ 

2006 


JRNZ 


KYSCN2 ? 

OODB -■ 

OC 


I NR 


c ; 

OODC" 

10F7 


DJNZ 


KYSCNl 

OODE - ' 

AF 


XRA 


A ? 

OODF 

12 


STAX 


D ; 

OOEO •" 

C9 


RET 





? DEF’RE 

SSI ON 

FOUND ~ JUMP 

OOE1 

05 

KYSCN25 

DCR 


B 

00E2 

OEOO 


MV I 


C v 0 ? 


PAGE 3 

PASS BACK OR AS FIRST 


DON'T CLICK IF NT=0 


HLT KEY WHILE PGM RUNN 

GET KEY CODE 
FREEZE? 

RETURN Z STATUS FOR LI 
ELSE GO BACK TO CALLER 
SCAN FOR NONZERO KEY T 

HLT MAILED? 

BASIC KEYBOARD 
B = CNT ■> C = PORT # 

I DE = KEYBOARD 

.INTP.> CRST 73 3 

LOOK AT COLUMN 
ISOLATE THE RELEVANT 
JUMP IF BITS HIGH 
BUMP PORT # 

SET ZERO STATUS 
NOTHIN - SAY ZIP 

UP AND DOWN 

COME UP WITH BIT # 
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OOE4 

OF 

KYSCN45 

RRC 

5 SHIFT 

BIT OVER 

00E5 

3803 


•JRC 

KYSCN3 

; JUMP IF THE ONE 

00E7 

oc 


INR 

c 

5 ELSE COUNT UP 

DOES" 

18FA 


JMF’R 

KYSCN4 

! AND TRY AGAIN 



5 FOUND 

BIT - 

ASSEMBLE 

KEYCODE 

OOEA •" 

79 

KY8CN3S 

MOV 

A ? L 

; BIT # TO A 

OOEB 

07 


RLC . 


? * 4 

00 EC •" 

07 


RLC 



OOED-* 

BO 


ORA 

B 

5 COMBINE WITH COL # 

OGEE 

3C 


INR 

A 


OQEF *** 

47 


MOV 

B, A 


OOFO •" 

1A 


LDAX 

D 


OOF 1 " 

AS 


XRA 

B 


00F2 *“ 

78 


MOV 

A 7 B 


UUF’J 

C8 


RZ 


? QUIT IF THE SAME 

00F4-’ 

12' 


STAX 

D 

5 ELSE UPDATE TRACKER 

OOFS 

C9 


RET 





? TABLE 

OF FIRST 

LEVEL KEYCODES 

00F6 


FIRSTLS 




00F6 •** 

OD 


. BYTE 

OR 


00F7 •*“ 

01 


.BYTE 

1 


OOFS 

00 


.BYTE 

0 


OOF-9 ■" 

63 


.BYTE 

63H 


OOF A'' 

37 


.BYTE 

"7" 


OOFB **’ 

o 


. BYTE 

7 O <■”* 


OOFC •" 

39 


. BYTE 

9 ^ 


OOFD •" 

62 


.BYTE 

62H 


OOFE 

34 


.BYTE 

••• 4 ." 


OOFF 

35 


.BYTE 

•"5"' 


0 1 .00 

36 


»BYTE 



0101-• 

2D 


.BYTE 



0102 

31 


.BYTE 

' 1 ' 


0103-' 

27 


. BYTE 

^ 2 ^ 


0104"' 

3 3 


.BYTE 



0105 

2B 


. BYTE 

' 4- ' 


0106"' 

20 


.BYTE 

2 


0107"' 

30 


.BYTE 

" 0 " 


0108 "' 

IF 


.BYTE 

RUBOUT 


0109"' 

3D 


.BYTE 

^ ss *•* ' 




? FIRST 

SHIFT 

KEY 


010 A "' 


KTBL1: 




010A"' 

A7 


„ BYTE 

0A7H 

? FIRST SHIFT KEY COLOR 

0 1 OB"' 

OD 


. BYTE 

CR 


010C"' 

01 


.BYTE 

1 


01 OB''' 

00 


.BYTE 

0 


010E"' 

01 


.BYTE 

1 


01 OF"' 

41 


. BYTE 

"' A "‘ 


0110 "' 

44 


. BYTE 

"' D "' 


0111 " 

47 


. BYTE 

•"G" 


0112"' 

4A 


. BYTE 



0113" 

40 


. BYTE 

"M" 


0114" 

50 


BYTE 

p ••• 


0115" 

53 


. BYTE 

•'S'" 


0116"' 

56 


. BYTE 

"V" 


0117"' 

59 


„ BYTE 

" Y " 









PAGE 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
EZKP - 


oils-' 

5F 

„ BYTE 

5FH 

0119" 

5E 

„ BYTE 

5EH 

011 A 

26 

.BYTE 

X & •** 

01 IB" - 

24 

. BYTE 


011C"' 

3C 

. BYTE 

<; 

01 ID'" 

oo 

U 

.BYTE 

- c •- 

011 E"‘ 

•7 o 

. BYTE 




? SECOND SHIFT 

KEY 

01 IF"' 


KTBL2S 


01 IF"' 

5F 

.BYTE 

05FH 

0120 "' 

OD 

.BYTE 

CR 

0121 "' 

2F 

. BYTE 

2FH 

0122 "' 

00 

. BYTE 

0 

0123"' 

5B 

.BYTE 

5BH 

0124"' 

4 2 

. BYTE 

B 

0125"* 

45 

. BYTE 

“*■ E 

0126"' 

48 

. BYTE 

■" H 

01 27"' 

4B 

.BYTE 

K'" 

0128'" 

4E 

.BYTE 

" N •' 

0129"' 

51 

. BYTE 

Q 

012A"' 

54 

.BYTE 

"T" 

012B"' 

57 

. BYTE 

•-y-" 

012C'" 

5A 

M BYTE 

, z 

012D"' 

27 

. BYTE 

27H 

012E •" 

2E 

BYTE 

Y 
. m 

012F"' 

40 

. BYTE 

"'d'" 

0 1 30 •" 

2 C 

.BYTE 


0131"' 

22 

. BYTE 

22H 

0132"' 

3B 

. BYTE 


0133"' 

OR 

. 1 ?.. 

. BYTE 




? TABLE THE THIRD 

0134"' 


KTBL3-" , 


0134'" 

OF 

.BYTE 

OFH 

0135" 

OB 

. BYTE 

CR 

0136"' 

5C 

. BYTE 

5CH 

0137'" 

00 

. BYTE 

0 

0138"' 

’ 5B 

. BYTE 

SDH 

0139"' 

43 

.BYTE 


013 A"' 

■ 46 

.BYTE 

*' F 

013B-" 

49 

.BYTE 

... j 

013C"' 

4C 

.BYTE 

•"L"' 

013D"' 

4F 

. BYTE 

■ **’ 0 *** 

013E 


. BYTE 

"R" 

013F"' 

ssr KT 

DD 

. BYTE 


0140"' 

58 

. BYTE 

'" X 

0141" 

21 

.BYTE 

•*’ ! *•* 

0142"' 

61 

. BYTE 

61H 

0143"' 

60 

.BYTE 

60H 

0144 

2A 

.BYTE 


01 45"' 

3F 

. BYTE 

.** *7 .•* . 

0146"' 

3E 

„ BYTE 

**•., / 

0147"' 

29 

.BYTE 

"' ) 

0 1 48'" 

3A 

.BYTE 



5 TOKEN KEY 


? SECOND SHIFT KEY COLOR 


I THIRD SHIFT KEY COLOR 
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0149 


0149 

77 

014 A 

67 

014B 

66 

014C 

6A 

014D-" 

68 

014E "' 

72 

01.4F •" 

77 

0150 "' 

75 

0151 •- 

6B 

0152 •" 

6F 

0153"' 

70 

0154"' 

76 

0155"' 

6D 

0156"' 

69 

0157"' 

6C 

0158 •" 

71 

0159"' 

6E 

015 A"' 

66 

015B "' 

73 

015C-" 

01 

015D"' 

74 


KTBL4S 

.BYTE 77H ? WORDS KEY COLOR 

.BYTE NLLN 
.BYTE EDKEY 
.BYTE 6AH 
.BYTE 68H 
.BYTE 72H 
„BYTE 77H 
.BYTE 75H 
.BYTE 6BH 
.BYTE 6FH 
.BYTE 70H 
.BYTE 76H 
.BYTE 6DH 
.BYTE 69H 
.BYTE 6CH 
.BYTE 71H 

.BYTE 6EH 
„BYTE EDKEY 
.BYTE 73H 
.BYTE 1 
.BYTE 74H 
. END 
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. RREL 

.IDENT MUSIC 
.INSERT HVG.LIB 
.INSERT MACRO.LIB 
.INSERT MUSIC.LIB 
.INSERT BBEQU.ASM 

0000-' . RELOC 

? DEVICE VARIABLE TO PLAY NOTE WITHOUT PRINTING 


0000 **’ 

CF 

PUT-MU 2. s 

'TSTC 

LQWHAT [ RST 1 

0001 •- 

3D 

+ 

. BYTE 

; s sr *** • 

0002 **’ 

06 

+ 

. BYTE 

LQWHAT-.-1 



+ 3 



0003 *" 

D7 


RSI 

RSTEXP 

0004 •" 

7D 


MOV' 

A ? L. . 

0005 *’* 

CD OOOC-' 


CALL 

PNOTE 

0008 

F7 


RST 

RSTFIN 

0009 •" 

C3 0000s04 

LQWHAT s 

JMP 

QWHAT# 



? SUBROUTINE TO 

PLAY A NOTE 

oooc •- 

E5 

PNOTEs s 

PUSH 

H 

GOOD •" 

D5 


PUSH 

D 

OOOE 

F5 


PUSH 

PSW 

000F 

67 


MOV 

Hi A 



; WAIT r 

-OR prev: 

EOUS PARAMETERS TO BE EATEN 

0010-* 

3A 0000 s05 

PRWAITs 

LDA 

NEWTMR# 

0013 •" 

A7 


ANA 

A 

0014-' 

20FA 


JRNZ 

PRWAIT ; LOOP 

0016 

7C 


MOV 

Ai H 

0017-' 

FE63 


CPI 

63H ? DIVIDE? 

0019 

282E 


•JRZ 

PNOTDV 

001B-- 

FE62 


CPI 

&2H ? MULTIPLY? 

00 ID' 

2831 


JRZ 

PNOTML 

001F 

FE2B 


CPI 


0021' 

2831 . 


JRZ - 

PNOTPL 

0023 

FE2D 

\ 

CPI 


0025 ' 

2830 


•JRZ 

PNOTMN 

0027' 

FE30 


CPI 

y 0.<: 

0029 *“ 

2830 

• 

JRZ 

PNDTZ 

002B ' 

21 007CT 


LXI 

' H,WOTES-CR 

002E' 

FF 

HOOKINS 

INDEXBE INTP7.C . IFE . INIP. , CRST 72 2 

002F ' 

50 

+.BYTE 

92*01 


0030 *** 

3C 

. ^ , . *: ■ 

I NR 

A 5 CLICK? 

00:31 *" 

280E 


JRZ 

PNOTCL 

0033 ' 

3C 


I NR 

A .? AINSWORTH NUMBA? 

0034" 

2831 


JRZ 

PNOTNO 

0036 ' 

3D 


OCR 

A 

0037 ' 

3D 


DCR 

A 

0038 ' 

32 0000 "06 


STA 

MUZTON# 

003B **’ 

3A 0000s07 


LDA 

DEVTEM# 

003E-" 

32 0000505 


STA 

NEWTMR# 

004!! •** 

AF ; 

PNOTCLs 

XRA 

A 

0042" 

32 0000 5 08 

PSHARP5 

STA 

SHARPF# 

0045 ' 

FI 

PNOTCl5 

POP 

PSW 

0046 ' 

D .1. 


POP 

D 

0047 *" 

El 


POP 

H 

0048 •’* 

C9 


RET 
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0049 

3E8F 

PNOTDVs 

MV I 

A 7 0 A1 


004B"' 

32 0000 s 09 

PN0TD1s 

STA 

MUZMO# 


004E-’ 

18F5 


■JMPR 

PNOTCl 


0050 •" 

3E23 

PNOTML: 

MV I 

A 7 0A3 


0052 *“ 

18F7 


JMPR 

F'NOTD 1 


0054 

3E01 

PNOTPLS 

MV I 

A, 1 


0056 •" 

11 


.BYTE 

11H ? 

OPCODE TO MUNCH NEXT T 



WO BYTE 

S INTO 

DE 


0057 

3E02 

PNOTMN: 

MV I 

A, 2 


0059 

18E7 


JMPR 

PSHARP 


005B"' 

21 0000sOA 

PNOTZ s 

LX I 

H,MUZTMR# 


005E 

3A 0000s07 


LDA 

DEVTEM# 


006.1. 

F3 


DI 



0062 **’ 

86 


ADD 

M 


0063 **’ 

77 


MOV 

M, A 


0064"' 

FB 


El 



0065 

18DE 


JMPR 

PNOTCl 




? PLAY 

AINSWORTH NOTE 


0067 •" 

3A 0000s08 

F'NOTNO s 

LDA 

SHARPF# 3 

RESTORE CHARACTER 

006A “■ 

p*p 


INDEXW 

1CINTP7.C. 

IFE .INTP.,ERST 733 

006EK 

5B 

+ „ BYTE 

90+13 



006C •" 

0075*" 


. WORD 

DICKY 


006E **‘ 

EB 


XCHG 



006F 

FI 


POP 

PSW 


0070 •“ 

F5 


PUSH 

F'SW 


0071 

D631 


SUX 

•" 1 "' 


0073 

18B9 


JMPR 

HOOK IN 




5 MUSIC 

TABLES 



0075 

0082"' 

DICKY s 

. WORD 

MUZNOR 


0077" 

0094 "' 


. WORD 

MUZMAX 


0079 

007B •" 


. WORD 

MUZMIN 


007B-' 


MUZMINs 




007B-* 

64 


»BYTE 

Bi 


007C 

59 


. BYTE 

CS2 


007D •" 

4F 


.BYTE 

DS2 


007E 

4A 


. BYTE 

E2 


007F -■ 

42 


.BYTE 

pC;9 


0080 •" 

3B 


.BYTE 

GS2 


0081 

34 


. BYTE 

AS2 


0082 " 


MUZNORs 




0082 •“ 

5E 


. BYTE 

C2 


0083 •" 

54 


. BYTE 

D2 


0084"' 

4A 


. BYTE 

P2 


0085 

46 


.BYTE 

F2 


0086'"' 

3E 


. BYTE 

G2 


0087"' 

37 


. BYTE 

A2 


0088 •" 

31 


. BYTE 

B2 




; TONE 

GENERATION TABLE ~ 

ORDERED BY ASCII CHARA 



CTER 




OOFF 


CLICK 


offh 


OOFE 


NUMBA 


OFEH 


0089 

FF 

NOTES s. s 

. BYTE 

CLICK ? 

CR 



S IRRELEVANT S 

TUFF TO EAT 

TABLE SPACE 

008A"' 

0000 0000 

WORD 

0 'J 0 7 0 7 

0 ? 0 


0094"' 


MUZMAXs 
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0094 

59 

BYTE 

CS2 

0095 •" 

4F 

»BYTE 

DS2 

0096 "■ 

46 

.BYTE 

F'2 

0097-' 

42 

.BYTE 

FS2 

0098"' 

3B 

.BYTE 

US 2 

0099 •" 

34 

. BYTE 

AS2 

009A 

2E 

.BYTE 

C3 



? AND THE TABLE 

CONTINUE 

009B 

FF 

. BYTE 

CLICK 

009C •" 

00 

.BYTE 

0 

009D 

El 

. BYTE 

AO 

009E "' 

D4 

.BYTE 

ASO 

009F •" 

C8 

. BYTE 

BO 

00 AO"' 

BD 

.BYTE 

Cl 

00 A 1 •" 

B2 

. BYTE 

CS1 

00A2 "'• 

A 8 

. BYTE 

D 1 

00A3 "' 

9F 

.BYTE 

DS1 

00A4" 

96 

.BYTE 

El 

00A5 •" 

8 D 

.BYTE 

FI 

00A6 "' 

85 

.BYTE 

FS1 

00A7" 

FF 

. BYTE 

CLICK 

00A8 •" 

77 

. BYTE 

GSl 

00A9"' 

pp 

.BYTE 

CLICK 

OOAA-' 

6A 

.BYTE 

AS1 

00 AB "' 

64 

.BYTE 

81 

00 AC ■" 

FF 

„ BYTE 

CLICK 

00 AD ■•' 

pp 

. BYTE 

NUMBA 

OOAE 

FE 

.BYTE 

NUMBA 

OOAF •" 

pp 

„ BYTE 

NUMBA 

OOBO 

FE 

.BYTE 

NUMBA 

GOBI •" 

FE 

„ BYTE 

NUMBA 

00B2 "' 

FE 

. BYTE 

NUMBA 

00B3 "' 

FE 

. BYTE 

NUMBA 

00B4 

2E 

. BYTE 

C3 

00B5 "' 

2C 

.BYTE 

CS3 

00B6 "' 

29 

»BYTE 

*D3 

00B7 "' 

'“yy 

. BYTE 

DS3 

GOBS' 


.BYTE 

E3 

00B9 -' 

22 

.BYTE 

F3 

OOBA"' 

20 

.BYTE 

FS3 

OOBB"' 

IF 

. BYTE 

G3 

OOBC'" 

ID 

. BYTE 


OOBD-' 

IB 

. BYTE 

A3 

OOBE "' 

1A 

.BYTE 

A33 

OOBF y 

18 

. BYTE 

B3 

OQCO " 

17 

.BYTE 

C4 

OOC1 -' 

15 

.BYTE 

CS4 

00C2- 

14 

. BYTE 

D4 

00C3 -' 

13 

.BYTE 

DS4 

00C4 •" 

12 

.BYTE 

E4 

00C5 -' 

11 

. BYTE 

F4 

OOC 6 -' 

10 

.BYTE 

FS4 

OOC 7 •- 

OF 

. BYTE 

U 4 

OOC 8 "' 

OE 

. BYTE 

U*d4 

00C9 ' 

OD 

. BYTE 

A 4 
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OOCA 

OB . 

. BYTE 

C5 

OOCB •" 

OA 

. BYTE 

CSS 

OG.CC •*' 

09 

.BYTE 

DS5 

00 CD ' 

08 

.BYTE 

F5 

OOCE 

07 

. BYTE 

G5 

OOCF 

06 

.BYTE 

A 5 

OODO •" 

05 

. BYTE 

C6 

00D1 •- 

04 

. BYTE 

DS6 

00D2 

03 

. BYTE 

G6 

00D3 -■ 

02 

. BYTE 

C7 

0.0D4 

01 

. BYTE 

G7 

00D5 •" 

64 

.BYTE 

B1 

00 D 6 •" 

5E 

. BYTE 

C2 

00D7 - 

59 

. BYTE 

CS2 

OODS* 

54 

. BYTE 

D2 

00D9 -■ 

4F 

. BYTE 

DS2 

OODA 

4A 

. BYTE 

E2 

OODB 

46 

. BYTE 

F2 

00 DC •- 

4 2 

BYTE 

FS2 

OODD ■" 

3E 

.BYTE 

G2 

OODE •" 

FF 

. BYTE 

CLICK 

OODF •" 

FF 

. BYTE 

CLICK 


. END 
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.. PREL 
„IDENT 

TAPE 



„INSERT 

HVG.LIB 



.INSERT 

MACRO.LIB 



„INSERT 

BBEQU«ASM 

0000 •" 


. REL..OC 




? COMMAND TO ESTABLISH TAPE UNIT AS INPUT DEVICE 

oooo 

CD 0000s04 

TINPUT:s CALL 

TINPES# 

0003 

F7 

RST 

RSTF1N 5 GO HOME 



5 COMMAND TO LI 

ST STUFF ON CRT 

0004 *** 

CD 0000s04 

TLISTss CALL 

TINPES# 

0007-' 

CD 0000s05 

TLISTls CALL 

CHKIO# ? GET CHARACTER 

000A •- 

DF 

RST 

RSTOCH ? PRINT IT 

00 OB 

18FA 

JMPR 

TLIST1 ? FOREVER 1 



5 COMMAND TO ES 
TERFACE 

TABLISH PRINTING THRU THE TAPE IN 

OOOD 

3E06 

TPRINTss MVI 

A, 6 5 SET PRINT FLAG 

00 OF' '•* 

01 

.BYTE 

01H 5 LX I OPCODE TO 



EFFECT SKIP 

5 COMMAND TO ES 

TABLISH OUTPUT TO TAPE 

001 O x 

3E02 

TOUTPU"s MV1 

A, 2 5 SET OUTPUT FLAG 

0012"' 

32 0000 s 06 

STA 

TAPEST# 

0015-' 

P7 


RSTFIN 



S COMMAND TO LOAD 128 BYTE BOOTSTRAP FROM TAPE 

00 IS-" 

CD 0000 s 04 

TLOADss CALL 

TINPES# * START TAPE READING 

0019 *" 

21 4000 

LX I 

HvNORMEM 

001 G“ 

E5 

PUSH 

H 

00 ID"' 

E5 

TLQADls PUSH 

H 

00 IE' 

CD 0000s 05 

CALL 

CHKI0# 

0021 : 

Ei 

POP 

H 

0022 ' 

77 

MOV 

Hi A 

0023 *" 


I NX 

H 

0024"’ . 

CB7D 

BIT 

7» L 

0026 

28F5 

•JRZ 

TL0AD1 

0028 

C9 

RET 

? ENTER VIA RETURNING 

002*? "* 


TOUTCK ss 


0029"' 

3A 0000 s 06 

LDA 

TAPEST# 

002C *■’ 

FE06 

CPI 

6 

002E y 

282D 

JRZ 

VDMFRG 

0030 

E602 

TURDCls ANI 

2 ? WRITE TO TAPE WANTED? 

0032"’ 

C8 

RZ 


0033 

4A 

TURDC2S MOV 

C/D 

0034"’ 

CB01 

RLCR 

c 



? YEP 




5 WRITE START BIT 

0036” 

DB12 

TAPCHOs IN 

TAPE10 ? INPUT FF STATE 

0033"* 

E60.2 

AN I 

2 5 WAIT FOR IT TO GO NONZ 



ERO 


003ft *** 

28FA 

JRZ 

TAPCHO ? MEANING START BIT WRIT 



TEN 


003C *” 

060A 

MV I 

B,10 ? B = # OF BITS TO WRITE 


5 WAIT ABOUT 1.8 MILLISECONDS TO MOVE BEYOND CMA 
NGE WINDOW 
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003E 

3EC0 

TAPCHls MVI 

Ai 192 



0040" 

3D 

TAPCH2S DCR 

A 



0041 •" 

20FD 

JRNZ 

TAPCH2 





? ARE WE DONE 

WRITING? 



0043 

05 

DCR 

B 



0044"' 

C8 

RZ 






? (POSITION IS 

BIT 1 ) 



0045 "' 

DB12 

IN 

TAPE10 

5 KE 

EP READING INPUT 

0047 •" 

5F 

MOV 

E, A 



0048 

DB12 

TAPCH3S IN 

TAPE10 

? UN 

TIL IT TOGGLES 

004A"' 

AB 

XRA 

E 



004B"' 

E602 

AN I 

2 



004D"' 

28F9 

■JRZ 

TAPCH3 



004F"' 

7B 

MOV 

A,E 

“ E 

-• WHAT WE GOT NOW 

0050" 

A9 

XRA 

C 

; C ' 

= WHAT WE WANT 

0051"' 

E602 

AN I 

2 

; di: 

D WE "'GET IT?"' 

0053 "' 

2802 

JRZ 

TAPCH4 

5 JUI 

HP IF SO 

0055"' 

DB12 

IN 

TAPE10 

? NO 

- READ AGAIN TO TOG 



OLE 




0057"' 

CBC9 

TAPCH4S SET 

0 1 

1, C 

i SE 

T EACH BIT WRITTEN T 

0059"' 

CB09 

RRCR • 

nki 

C 

? SHIFT INTO NEXT POSITI 

0058 "’ 

18E1 

UIm 

JMPR 

TAPCH1 

; SO 

STOP BIT WILL GO OU 



T 

5 MODE 6 - TOK 

:en coming 

THRU 


005D"' 

7A 

VDMFRG3 MOV 

A? D 



005E "' 

FE68 

CPI 

68H 



0060 •" 

38D1 

JRC 

cr 

TURDC2 

! NO 

- TWEEDLE IT TO TAP 

0062 •" 

C9 

c. 

RET 

. END 







PAGE 1 


TDL Z80 CP/M DISK ASSEMBLER VERSION-2.21 
SUBS 




» F’REL 
.IDENT 

SUBS 



.INSERT 

BBEQU.ASM 

OOOO **' 

7C 

ckhl.de: s 5 MOV 

A,H 

0001 

AA 

XRA 

D 

0002 

F2 0006" 

JP 

COMP 

0005 

EB 

XCHG 

tt 


0006 

7C 

? H 88 H 

COMP "“ MOV 

A,H 

0007 •" 

BA 

CMP 

D 

0008 *“ 

CO 

RNZ 


0009 •“ 

7D 

MOV 

A L. 

OOOA •" 

BB 

CMP 

E 

OOOB 

C9 

RET 




? SUBROUTINE TO 
IN A IS ML OR 

a st / 

RETURN ZERO STATUS IF CHARACTER 

000 G •’* 

FE3B 

? 7 

ATNLs : CPI 

" " 5 CHECK FOR CONTINUATION 

OOOE 

f: p 

RZ 


OOOF 

FEOD 

CPI 

CR ; AND FOR OR 

0011 

C9 

RET 


0012 •" 

CD 0000 : 04 

IGNBLKs : CALL 

LDE# 

0015' 

FE20 

CPI 


0017 

CO 

RNZ 


0018* 

13 

I NX 

D 

0019 

18F7 

JMPR 

IGNBLK 



? TSTCH AND TSTNUM 

00 IB- - 

E3 

TSTCHs5 XTHL 


001C" 

E7 

RST 

RSTIGN 

00 ID" - 

BE 

CMP 

M 

00 1 F. • 

23 

I NX 

H 

001F" 

2807 

•JRZ 

TCI 

0021 ' 

C5 

PUSH 

B 

0022" 

4E 

MOV 

c t li 

0023" 

0600 

MV I 

B» 0 

0025" 

09 

DAD 

B 

0026" 

Cl 

POP 

B 

0027 " 

IB 

DCX 

D 

0028" 

13 

TCIs INX 

D 

0029 " 

2 3 

INX 

H 

002A " 

E3 

XTHL 


002B " 

C9 

RET 


0020" 

21 0000 

TSTIMUM: 5 LX I 

H i 0 

002F " 

44 

MOV 

B> H 

0030 " 

E7 

RST 

RSTIGN 

0031" 

FE30 

TNIs CPI 

*** o 

0033" 

D8 

RC 


0034" 

FE3A 

CPI 

3 AH 

0036 " 

DO 

RNC 


0037 " 

3EF0 

MV I 

A 7 OFOH 

0039" 

A4 

ANA 

H 

003A " 

C2 0000 s 05 

JNZ 

yHUW# 

003D " 

04 

I NR 

B 

003E " 

C5 

PUSH 

B 
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003F •" 

44 

MOV 

B,H 

0040-' 

4D 

MOV 

L i L 

0041-' 

29 

DAD 

H 

0042-' 

29 

DAD 

H 

0043 -' 

09 

DAD 

B 

0044 -' 

29 

DAD 

H 

0045-' 

CD 0000«04 

L-ALL 

LDE# 

0048 •" 

13 

I NX 

D 

0049 •" 

E60F 

AN I 

OOFH 

004B -' 

85 

ADD 

L 

004C -' 

6F 

MOV 

L» A 

004D" 

3E00 

MV I 

A, 0 

004F -' 

8C 

ADC 

H 

0050"' 

67 

MOV 

A 

0051 -' 

C1 

POP 

B 

0052 •" 

CD 0000 s04 

CALL 

LDE# 

0055 •" 

F2 0031 x 

JP 

TNI 

0058 •" 

C3 0000 n 05 

•JiiP 

QHOW# 


. END 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
PRTSUB - 


. PREL 





. IDENT 

PRTSUBS 




.INSERT 

BBEQU.ASM 



5 prxstg* qtstg* 

PRTNUM, PRTLN 

0000 •" 

97 

PRTSTGS 

2 SUB 

A 

0001 •" 

47 

PS 12 

MOV 

B v A 

0002 **' 

CD 0000 s 04 

PS2 5 

CALL 

LDE# 

0005 ' 

13 


INX 

D 

0006 "' 

B8 


CMP 

B 

0007’" 

C8 


RZ 


0008 *** 

DF 


RST 

RSTOCH 

0009 •" 

FEOD 


CPI 

OR 

000B-" 

20F5 


•JRNZ 

p o*7 

GOOD *'* 

C9 


RET 


OOOE 

CF 

QTSTGs2 

TSTC 

•" " "' , QT3 r 

OOOF 

22 

4- 

. BYTE 

,•* n Y 

0010-' 

OE 

+ 

. BYTE 

QT3-.-1 



+ 3 



0011 

3E22 


MVI 

A, ' " 

0018 *’* 

CD 0001"' 

QTl » 

CALL. 

PS1 

0016 •" 

FEOD 

QT2: 

CPI 

CR 

0018 •- 

El 


POP 

H 

0019 •" 

CA 0000s05 


JZ 

RUNNXL# 

001 c •- 

23 


INX 

H 

001D 

22 


INX 

H 

00 IE-' 

E9 


PCHL 


001F' 

CF 

QT3's 

TSTCC 

027H ? QT5 1. 

0020 

27 


. BYTE 

027H ' 

002 i •" 

04 

+■ ■ 

. BYTE 

0T5-.-1 



+ 3 



0022" 

3E27 


MVI 

ft,027H 

0024 •" 

18ED. 


•JSiPR 

QT1 

0026 •" 

I”; 9 

QT5 • 

RET 


0027"' 

?B 

PRICKSs 

s MOV 

A, E 

0028 •" 

B8 


CMP 

B 

0029’" 

C8 


RZ 


002A-' 

CD 0000s 04 


CALL 

LDE# 

002D •" 

DF 


RST 

RSTOCH 

002E •" 

13 


INX 

D 

002F" 

18F6 


JMPR 

PRTCHS 

0031 •" 


PRTNUM" 

==: 

n 

0031 •" 

0600 

PN32 

MVI 

B , 0 

0033"' 

CD 0000s06 


CALL 

CHKSGN# 

0036 "' 

F2 003C" 


JP 

PN4 

0039"' 

062D 


MVI 

B, 

003B-" 

OD 


DCR 

c 

0030"' 

D5 

PN4: 

PUSH 

D 

003D •" 

11 OOOA 


LX I 

D, 10 

0040"' 

D5 


PUSH 

D 

0041" 

OD 


DCR 

c 

0042"' 

1*” 


PUSH 

B 

0043"' 

CD 0000s 07 

PN5s 

CALL 

DIVIDE# 

0046 " 

~‘r o 


MOV 

A, B 

0047"' 

B1 


ORA 

C 

0048 " 

CA 0052" 


■JZ 

PN6 
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004B "' 
004C"' 

p;~; 

2D 


XTHL 

DCR 

L 

004D 

E5 


PUSH 

H 

004E 

60 


MOV 

H,B 

004F •" 

69 


MOV 

L, C 

0050 

18F1 


JMPR 

PN5 

0052 •" 

Cl 

PN 6 » 

POP 

B 

0053 •" 

OD 

PN7: 

DCR 

c 

0054 -* 

79 


MOV 

A,C 

0055 

B7 


ORA 

A 

0056"' 

FA 005E 


JM 

PN8 

0059 

3E20 


MV I 

ft,-" •" 

005B 

DF 


RST 

RSTOCH 

005C *“ 

. 18F5 


JMPR 

PN7 

005E *" 

78 

PN8s 

MOV 

A,B 

005F ' 

B7 


ORA 

ft 

0060 

C4 0000s08 


CN2 

DUTCH# 

0063 •*’ 

5D 


MOV 

E -j L 

0064"' 

7B 

PN9: 

MOV 

A,E 

0065 ■" 

FEOA 


CPI 

10 

0067"' 

D 1 


POP 

D 

0068"' 
006 - 

C8 

C630 


RZ 

ADI 

"' 0 "' 

006B"' 

DF 


RST 

RSTOCH 

006C"' 

18F6 


JMPR 

PN9 

006E"' 

CD 0000 s 04 

PRTLNs 

s CALL 

LDE# 

0071"' 

6F 


MOV 

L, A 

0072"' 

13 


I NX 

D 

0073 "' 

CD 0000;04 


CALL 

■ LDE# 

0076"' 

67 


MOV 

H, A 

0077" 

13 


I NX 

D 

0078 "' 

0E04 


MV I 

L ■-* 4 

007A"' 

CD 0031"' 


CALL 

PRTNUli 

007D"' 

3E20 


MV I 

A f 

007F"' 

DF 


RST 

RSTOCH 

0080"' 

C9 


RET 

. END 
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ERROR 





. PREL 





I DENT 

ERROR 




.INSERT 

MACRO.LIB 




„INSERT 

BBEQU.ASM 

0000 •*’ 

574841543F 

WHAT a 

.ASCII 

"WHAT?"' 

0005“ 

OD 


. BYTE 

CR 

0006 •" 

484F573F 

HOWs 

.ASCI I 

■"HOW?"' 

000A •" 

OD 


.BYTE 

CR 

OOOB 

534F525259 

SORRYa 

.ASCII 

•"SORRY"' 

0010 •" 

OD 


.BYTE 

CR 

0011 

D5 

QWHAT a a 

PUSH 

D 

0012-' 

11 0000"' 

AWHATsa 

LX I 

D,WHAT 

0015 **' 

CD 0000s04 

ERROR: 

CALL 

CRLF# 

0018 

CD 0000s05 


CALL 

PRTSTG# 

001B' 

2A 0000 a 06 


LHLD 

CURRNT# 

00 IE" 

E5 


PUSH 

H 

001F 

EB 


XCHG 


0020 *“ 

CD 0000a 07 


CALL 

LDE# 

0023 •" 

67 


MOV 

Hi A 

0024 " 

13 


INX 

D 

0025:" 

CD 0000a07 


CALL 

LDE# 

0028 •“ 

B4 


ORA 

H 

0029 " 

EB 


XCHG 


002A •" 

D1 


POP 

D 

002B-" 

CA 0000s08 


,JZ 

TELL# 

002E •" 

EB 


XCHG 


002F ■" 

CD 0000S07 


CALL 

LDE# 

0032 •" 

EB 


XCHG 


00:33 •" 

B7 


ORA 

A 

0034 •" 

FA 0000 s 09 


•JM 

INPERR# 

0037 •" 

CD 0000 a OA 


CALL 

PRTLN# 

003A •" 

Cl 


POP 

B 

003B"' 

41 


MOV 

B,C 

003C 

CD 0000sOB 


CALL 

PRTCHS# 

003F •" 

3E3F 


MV I 

Ai ■"?"' 

0041 •" 

DF 


RST 

RSTOCH 

0042"' 

CD 0000s05 


CALL 

PRTSTG# 

0045 

C3 0000 s 03 


JMP 

TELL# 

0048"' 

D5 

QSORRY a 

n 

PUSH D 

0049"' 

11 OOOB"' 

ASORRYa 

t». 

is 

LX I D,SORRY 

004C"' 

18C7 


•JMPR 

ERROR 

004E"' 

D5 

QHOW a a 

PUSH 

D 

U04F- " 

11 0006"' 

AHOW:a 

LX I 

D i HOW 

0052"' 

C3 0015"' 


JMP 

§***$ fy*. ***** r*** 

. C.KKUK 




. END 










